Dim PageSetupDlg As New PageSetupDialog
 
            With PageSetupDlg
                .PrinterSettings = PrintDoc.PrinterSettings
                .PageSettings = PrintDoc.DefaultPageSettings
                .PageSettings.Landscape = True   
                .AllowOrientation = True           ' Auswahl Hoch- oder 
                ' Querformat 
 
                With .PageSettings.Margins
                    .Left = 100
                    .Right = 100
                    .Top = 100
                    .Bottom = 100
                End With
            End With
 
            PrintDoc.DocumentName = "Dokument"
            PrintDoc.Print()

Hänk

(Wer früh aufsteht hat mehr vom Tag)