Sub ttt()
Dim rngHPB As Range, rngVPB As Range, PB
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
With ActiveSheet
For Each PB In .HPageBreaks
If PB.Type = xlPageBreakManual Then
If rngHPB Is Nothing Then
Set rngHPB = PB.Location
Else
Set rngHPB = Union(rngHPB, PB.Location)
End If
End If
Next
For Each PB In .VPageBreaks
If PB.Type = xlPageBreakManual Then
If rngVPB Is Nothing Then
Set rngVPB = PB.Location
Else
Set rngVPB = Union(rngVPB, PB.Location)
End If
End If
Next
.ResetAllPageBreaks
.PrintOut
End With
If Not rngHPB Is Nothing Then
For Each PB In rngHPB.Cells
PB.PageBreak = xlPageBreakManual
Next
End If
If Not rngVPB Is Nothing Then
For Each PB In rngVPB.Cells
PB.PageBreak = xlPageBreakManual
Next
End If
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen