In diesem Beispiel wird Sheet1 beim Drucken um 150% vergrößert.
Worksheets("Sheet1").PageSetup.Zoom = 150