Public Class Form1
  ' Bitmap-Objekt für die aktuelle Form
  Dim oBitmap As Bitmap
 
  ' Objekte für Ausdruck/Seitenvorschau
  Dim WithEvents PrintDocument As New Printing.PrintDocument
  Dim PrintPreview As New PrintPreviewDialog
  ' Bitmap durch Kopieren des Desktop-Ausschnitts erstellen
  Private Sub Button2_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button2.Click
 
    ' Rechteck in der benötigten Größe erstellen
    Dim oRect As New Rectangle(Me.Left, Me.Top, Me.Width, Me.Height)
 
    ' Bitmap-Objekt erstellen
    With oRect
      oBitmap = New Bitmap(.Width, .Height, Imaging.PixelFormat.Format24bppRgb)
    End With
 
    ' Screenshot des Desktops für das ausgewählten Rechteckes erstellen
    Using g As Graphics = Graphics.FromImage(oBitmap)
      g.CopyFromScreen(oRect.Left, oRect.Top, 0, 0, _
        New Size(oRect.Width, oRect.Height))
    End Using
 
    ' in Seitenvorschau anzeigen
    With PrintPreview
      .Document = PrintDocument
      .ShowDialog()
    End With
  End Sub
  ' Hier erfolgt der Ausdruck des Bitmaps
  Private Sub PrintDocument_PrintPage(ByVal sender As Object, _
    ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
    Handles PrintDocument.PrintPage
 
    ' Bitmap-Objekt drucken
    Dim gr As Graphics = e.Graphics
    gr.DrawImageUnscaled(oBitmap, e.MarginBounds.X, e.MarginBounds.Y)
    e.HasMorePages = False
 
    ' Bitmap zerstören
    oBitmap.Dispose()
  End Sub
 
Enc Class