Visual Basic

Private Declare Function BitBlt Lib "gdi32.dll" Alias "BitBlt" (ByVal _<br />
   hdcDest As IntPtr, ByVal nXDest As Integer, ByVal nYDest As _<br />
   Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal _<br />
   hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, _<br />
   ByVal dwRop As System.Int32) As Long<br />
    Dim memoryImage As Bitmap<br />
    Private Sub CaptureScreen()<br />
        Dim mygraphics As Graphics = Me.CreateGraphics()<br />
        Dim s As Size = Me.Size<br />
        memoryImage = New Bitmap(s.Width, s.Height, mygraphics)<br />
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)<br />
        Dim dc1 As IntPtr = mygraphics.GetHdc<br />
        Dim dc2 As IntPtr = memoryGraphics.GetHdc<br />
        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, _<br />
           Me.ClientRectangle.Height, dc1, 0, 0, 13369376)<br />
        mygraphics.ReleaseHdc(dc1)<br />
        memoryGraphics.ReleaseHdc(dc2)<br />
    End Sub<br />
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage<br />
        e.Graphics.DrawImage(memoryImage, 0, 0)<br />
    End Sub<br />
    Private Sub PrintButton_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintButton.Click<br />
        CaptureScreen()<br />
        PrintDocument1.Print()<br />
    End Sub