In diesem Beispiel wird Sheet1 beim Drucken in Breite und Höhe genau auf eine Seite angepasst.
With Worksheets("Sheet1").PageSetup .Zoom = False .FitToPagesTall = 1 .FitToPagesWide = 1 End With