'Dialog zum Festlegen des Druckers und der Druckeigenschaften
        Dim pr1_dialog As New PrintDialog
        pr1_dialog.ShowNetwork = True
        'Eine Instanz des Druckvorschaudialogs erstellen
        Dim pr_dialog As New PrintPreviewDialog
        'Die Druckseite wird dem Druckdialog zugewiesen, um die 
        ' Druckeinstellungen dem Dokument zuzuteilen
        pr1_dialog.Document = PrintDocument1
        'Der Druckdialog wird angezeigt
        pr1_dialog.ShowDialog()
        'Die Druckseite wird dem Vorschaudialog zugewiesen
        pr_dialog.Document = PrintDocument1
        'Die Druckvorschau wird geöffnet
        pr_dialog.ShowDialog()