Using VBA to remove automatic page breaks

[OldManDemosthenes]

I know you can use the following code to setup page breaks:

Worksheets("Sheet1").Columns("M").PageBreak = xlPageBreakManual

What I am having trouble with is deleting automatic page breaks. My code orients the page with landscape. Right after this I need to delete all automatic page breaks then insert my own.

Thank you!

 

[shg]

You can't delete an automatic page break; they will go away by themselves if your manual page breaks allow the row/columns between them to print on a single page.

 

[OldManDemosthenes]

The page breaks are not going away. My code is just adding page breaks

Here's my code exactly. I only want page breaks at columns J, W, and AH and a freeze pane at B.

Sub PageSetup()
    
With Worksheets("Model")
[INDENT].PageSetup.Orientation = xlLandscape[/INDENT]
[INDENT].Columns("J").PageBreak = xlPageBreakManual[/INDENT]
[INDENT].Columns("W").PageBreak = xlPageBreakManual[/INDENT]
[INDENT].Columns("AH").PageBreak = xlPageBreakManual[/INDENT]
End With
    
Range("B:B").Select
[INDENT]ActiveWindow.FreezePanes = True[/INDENT]

End Sub

 

[shg]

Try this:

Sub PageSetup()
    With Worksheets("Model")
        .PageSetup.Orientation = xlLandscape
        .ResetAllPageBreaks
        .VPageBreaks.Add Before:=Columns("J")
        .VPageBreaks.Add Before:=Columns("W")
        .VPageBreaks.Add Before:=Columns("AH")
    End With
    Columns("B").Select
    ActiveWindow.FreezePanes = True
End Sub

 

[OldManDemosthenes]

This is still leaving me with extra page breaks at columns U and AG

Thanks for the input on this I really appreciate it

 

[shg]

Then you need to reduce the margins and/or decrease the print scaling so that the data fits in the page width.

 

[OldManDemosthenes]

Alright that makes sense. Thanks for the input!