Gruppe
Druck
Problem
Manuelle Zeilenumbrüchen werden gesetzt, bereits vorhandene entfernt.
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