Public Function Screenshot(ByVal Ctrl As Control) As Bitmap
        ' Erstellt einen Screenshot des übergebenen Controls / der übergebenen 
        ' Form.
        ' Erfordert Microsoft .NET >= 2.0 (Control.DrawToBitmap)
        ' Der Aufrufer ist für eine Entsorgung der returnierten Bitmap 
        ' zuständig.
 
        Dim w As Integer = Ctrl.Width  ' Breite des Controls / der Form
        Dim h As Integer = Ctrl.Height ' Höhe des Controls / der Form
 
        ' Bitmap für das Abbild des Controls / der Form bereitstellen
        Screenshot = New Bitmap(w, h)
        ' Screenshot vornehmen und zurückgeben
        Ctrl.DrawToBitmap(Screenshot, Rectangle.FromLTRB(0, 0, w, h))
        Return Screenshot
 
    End Function
 
 
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, _
  ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
  Handles PrintDocument1.PrintPage
 
        Dim gr As Graphics = e.Graphics
 
        ' Verweis auf das Bild festlegen
 
        Dim myImage As Image = Screenshot(UsrCtrlShowRelations1)
 
        ' Rechteck für den Ausdruck festlegen
        ' Position + Originalgröße
 
        Dim p As New Point(e.MarginBounds.Left, e.MarginBounds.Top)
        Dim r As New Rectangle(p.X, p.Y, myImage.Width, myImage.Height)
 
 
        ' Bild drucken im angegebenen Rechteck drucken
        gr.DrawImage(,myImage, r)
        gr.Dispose()
    End Sub
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        With PrintDocument1
            ' Drucker für den Ausdruck festlegen
            .PrinterSettings.PrinterName = "FreePDF XP" '"PDFCreator"
 
            ' Dokument-Title
            .DocumentName = "Print Picture"
 
            ' Ausdruck starten
            .Print()
        End With
    End Sub