Page Break Preview Help

%3CLINGO-SUB%20id%3D%22lingo-sub-1930015%22%20slang%3D%22en-US%22%3EPage%20Break%20Preview%20Help%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1930015%22%20slang%3D%22en-US%22%3EHi%2C%20I%20want%20to%20shift%20my%20page%20break%20preview%20automatically%20and%20consider%20anything%20I%20type%20in%20area%20outside%20page%20break.%20How%20can%20I%20do%20it.%20As%20in%20picture%20attached%20my%20page%20break%20is%20not%20automatically%20shifted%20after%20I%20entered%20text%20in%20E6%20cell.%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1930015%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EOffice%20365%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-1930400%22%20slang%3D%22de-DE%22%3ESubject%3A%20Page%20Break%20Preview%20Help%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1930400%22%20slang%3D%22de-DE%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F878167%22%20target%3D%22_blank%22%3E%40a88139g%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Edynamic%20Page%20break%20show%20with%20VBA%3A%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3ESub%20N_Lino()%0ADim%20WS%20As%20Worksheet%3A%20Set%20WS%20%3D%20ActiveSheet%0A%0AFor%20i%20%3D%201%20To%20WS.HPageBreaks.Count%0A%20%20%20%20Ad%20%3D%20WS.HPageBreaks(i).Location.Address%0A%0A%20%20%20%20If%20Not%20IsEmpty(Range(Ad).Offset(-1))%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Range(Ad).End(xlUp).PageBreak%20%3D%20xlPageBreakManual%0A%20%20%20%20End%20If%0A%0ANext%20i%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EInsert%2C%20move%2C%20or%20delete%20page%20breaks%20in%20a%20worksheet%3C%2FP%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Fsupport.microsoft.com%2Fen-us%2Foffice%2Finsert-move-or-delete-page-breaks-in-a-worksheet-ad3dc726-beec-4a4c-861f-ed640612bdc2%3Fui%3Den-us%26amp%3Brs%3Den-us%26amp%3Bad%3Dus%22%20target%3D%22_blank%22%20rel%3D%22noopener%20noreferrer%22%3Ehttps%3A%2F%2Fsupport.microsoft.com%2Fen-us%2Foffice%2Finsert-move-or-delete-page-breaks-in-a-worksheet-ad3dc726-beec-4a4c-861f-ed640612bdc2%3Fui%3Den-us%26amp%3Brs%3Den-us%26amp%3Bad%3Dus%3C%2FA%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EView%20page%20breaks%3C%2FP%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Fsupport.microsoft.com%2Fen-us%2Foffice%2Fview-page-breaks-188265f8-df45-448d-8500-43865697c67c%3Fui%3Den-us%26amp%3Brs%3Den-us%26amp%3Bad%3Dus%22%20target%3D%22_blank%22%20rel%3D%22noopener%20noreferrer%22%3Ehttps%3A%2F%2Fsupport.microsoft.com%2Fen-us%2Foffice%2Fview-page-breaks-188265f8-df45-448d-8500-43865697c67c%3Fui%3Den-us%26amp%3Brs%3Den-us%26amp%3Bad%3Dus%3C%2FA%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI%20would%20be%20happy%20to%20know%20if%20I%20could%20help.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ENikolino%20%3CBR%20%2F%3E%20I%20know%20I%20don't%20know%20anything%20(Socrates)%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E*%20Kindly%20Mark%20and%20Vote%20any%20reply%20if%20it%20helps%20please%2C%20as%20it%20will%20be%20beneficial%20to%20more%20community%20members%20reading%20here.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E
New Contributor
Hi, I want to shift my page break preview automatically and consider anything I type in area outside page break. How can I do it. As in picture attached my page break is not automatically shifted after I entered text in E6 cell.
2 Replies

@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...

 

View page breaks

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

 

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.

 

 

Is it possible without VBA?