Gruppe
Druck
Problem
Wie kann ich den Druckzoom auf das Maximum einer Seite hochfahren?
StandardModule: basMain
Sub ZoomUp()
Dim iPages As Integer, iZoom As Integer
iZoom = 100
iPages = ExecuteExcel4Macro("Get.Document(50)")
With ActiveSheet
.PageSetup.Zoom = 95
Do Until iPages > 1
iZoom = iZoom + 5
.PageSetup.Zoom = iZoom
iPages = ExecuteExcel4Macro("Get.Document(50)")
Loop
.PageSetup.Zoom = iZoom - 5
.PrintPreview
End With
End Sub