Public Sub VorschauAuftrag(ByVal Auftragsnummer As Integer) 'War da 
        ' gestanden: Handles MyBase.Load
            ' Zuerst die Definition des Dokuments
            Dim lPD As New System.Drawing.Printing.PrintDocument
            lPD.DocumentName = "Auftrag:" & AktAuftrag.Artikelbezeichnung
 
            Dim lPP As PrintPreviewDialog
            lPP = New PrintPreviewDialog
            lPP.Document = lPD
 
            ' Seitenzähler auf Anfangswert!
            m_AktPage = 0
 
            ' Das Dokument mit seinem Handler verbinden
            AddHandler lPD.PrintPage, AddressOf PDPrintPageAuftrag
 
            ' Die Seiten des Druckbereichs festlegen
            Dim lMargins As Margins = New Margins(200, 190, 190, 200)
            lPD.DefaultPageSettings.Margins = lMargins
 
            With lPP
                ' Der Druckvorschau das Dokument zuweisen
                .Document = lPD
                ' Die Druckvorschau soll maximiert gezeigt werden
                .WindowState = FormWindowState.Maximized
                ' Druckvorschau anzeigen
                .ShowDialog(Me)
            End With
 
            lPP = Nothing
            lPD = Nothing
        End Sub