Thema: Zeilenumbrüchen über VBA setzen

StandardModule: Modul1

Sub SetPageBreaks()
   Dim iRow As Integer, iCounter As Integer
   iRow = 56
   With ActiveSheet
      .DisplayAutomaticPageBreaks = True
      For iCounter = .HPageBreaks.Count To 1 Step -1
         If .HPageBreaks(iCounter).Type = xlPageBreakManual Then
            .HPageBreaks(iCounter).Delete
         End If
      Next iCounter
      Do While iRow < Range("A1").CurrentRegion.Rows.Count
         .HPageBreaks.Add Rows(iRow)
         iRow = iRow + 50
      Loop
      .PrintPreview
   End With
End Sub

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