Gruppe
Druck
Bereich
Zoom
Thema
Druckzoom auf das Maximum hochfahren
Problem
Wie kann ich den Druckzoom auf das Maximum einer Seite hochfahren?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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