VBA-Programmierung in Microsoft Excel

Druckzoom auf das Maximum 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

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Zoom