Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: Modul1

Sub Drucken()
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   With ActiveSheet
      .PageSetup.Zoom = 100
      ActiveWindow.View = xlPageBreakPreview
      Do While .VPageBreaks.Count > 0
         .PageSetup.Zoom = .PageSetup.Zoom - 1
         ActiveWindow.View = xlNormalView
         ActiveWindow.View = xlPageBreakPreview
      Loop
      iCounter = 2
      Do Until IsEmpty(Cells(iCounter, 12))
         If Cells(iCounter, 12).Value <> _
            Cells(iCounter - 1, 12).Value Then
            .HPageBreaks.Add Before:=Cells(iCounter, 12)
         End If
         iCounter = iCounter + 1
      Loop
      .PrintPreview
   End With
   ActiveWindow.View = xlNormalView
   Application.ScreenUpdating = True
End Sub

    

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