<System.Runtime.InteropServices.DllImportAttribute("gdi32.dll")> _
        Private Shared Function BitBlt( _
        ByVal hdcDest As IntPtr, _
        ByVal nXDest As Integer, _
        ByVal nYDest As Integer, _
        ByVal nWidth As Integer, _
        ByVal nHeight As Integer, _
        ByVal hdcSrc As IntPtr, _
        ByVal nXSrc As Integer, _
        ByVal nYSrc As Integer, _
        ByVal dwRop As System.Int32 _
        ) As Boolean
    End Function
 
    Dim memImage As Image
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e _
      As System.Drawing.Printing.PrintPageEventArgs) Handles _
      PrintDocument1.PrintPage
        e.Graphics.DrawImage(memImage, 0, 0)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim printDialog1 As New PrintDialog()
        printDialog1.Document = PrintDocument1
        Dim prs As System.Drawing.Printing.PrinterSettings = _
          printDialog1.PrinterSettings
        'PrintDocument1.DefaultPageSettings.Landscape = True
        Dim result As DialogResult = printDialog1.ShowDialog()
        If result = DialogResult.OK Then
            System.Threading.Thread.Sleep(500)
            Cursor.Hide()
            Me.Refresh()
            getImage()
            PrintDocument1.Print()
            Cursor.Show()
        End If
    End Sub