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