Page Break Preview Help

a88139g 

dynamic Page break show with VBA:

Sub N_Lino()
Dim WS As Worksheet: Set WS = ActiveSheet

For i = 1 To WS.HPageBreaks.Count
    Ad = WS.HPageBreaks(i).Location.Address

    If Not IsEmpty(Range(Ad).Offset(-1)) Then
               Range(Ad).End(xlUp).PageBreak = xlPageBreakManual
    End If

Next i
End Sub

Insert, move, or delete page breaks in a worksheet

https://support.microsoft.com/en-us/office/insert-move-or-delete-page-breaks-in-a-worksheet-ad3dc726-beec-4a4c-861f-ed640612bdc2?ui=en-us&rs=en-us&ad=us

View page breaks

https://support.microsoft.com/en-us/office/view-page-breaks-188265f8-df45-448d-8500-43865697c67c?ui=en-us&rs=en-us&ad=us

I would be happy to know if I could help.

Nikolino
I know I don't know anything (Socrates)

* Kindly Mark and Vote any reply if it helps please, as it will be beneficial to more Community members reading here.