Dim PrintDoc As New System.Drawing.Printing.PrintDocument
            PrintDoc.DocumentName = "Dokument"
 
            Dim DlgDruckvorschau As PrintPreviewDialog
            DlgDruckvorschau = New PrintPreviewDialog
            DlgDruckvorschau.Document = PrintDoc
 
            Dim Druckerdialog As New PrintDialog
            With Druckerdialog
                .Document = PrintDoc
                .PrinterSettings = PrintDoc.PrinterSettings
            End With
 
            Dim S As New PageSetupDialog
            With S
                .PrinterSettings = PrintDoc.PrinterSettings
                .PageSettings = PrintDoc.DefaultPageSettings
                .PageSettings.Landscape = True    ' Querformat
                .AllowOrientation = True
            End With
 
            '------------------------------------------------------------------
            ' ---------------------
 
            AddHandler PrintDoc.PrintPage, AddressOf PrintDoc_PrintPage
 
            ' in PrintDoc_PrintPage stellst du dein Dokument zusammen
 
            With DlgDruckvorschau
                .Document = PrintDoc
                .WindowState = FormWindowState.Maximized
                .ShowDialog(Me)
            End With
 
            DlgDruckvorschau = Nothing
            PrintDoc = Nothing

Hänk

(Wer früh aufsteht hat mehr vom Tag)