Private Sub PrinterPreview()
        ' Seitenzähler initialisieren.
        CurrentPage = 0
 
        ' Vorschaudialog erstellen und anzeigen.
        Dim printpreviewDlg As New PrintPreviewDialog
        With printpreviewDlg
            ' Dokument zuweisen.
            .Document = PrintDoc
            ' Druckvorschau maximiert
            .WindowState = FormWindowState.Maximized
            ' Druckvorschau anzeigen
            .ShowDialog(Me)
        End With
        printpreviewDlg = Nothing
    End Sub