屏幕捕获后如何避免模糊打印？

Imports System.Drawing.Printing
Public bmp1 As Bitmap
Private WithEvents printDocument1 As New PrintDocument

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim L, T, W, H As Integer
    L = form1.Left : T = form1.Top : W = form1.Width : H = form1.Height

    Dim Bmp0 As New Bitmap(W, H)
    Dim g0 As Graphics = Graphics.FromImage(Bmp0)

    g0.CopyFromScreen(L, T, 0, 0, New Size(W, H))
    g0.Dispose()
    bmp1 = New Bitmap(Bmp0, 750, 562)

    printDocument1.Print()
End Sub

Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles printDocument1.PrintPage
    e.Graphics.DrawImage(bmp1, 0, 0)
End Sub