I was trying to record a macro to give me some kind of idea how to reset the Page Break via code. It didn’t really help. What I have been doing to reset the page break was opening Page Break Preview and dragging page 1 all the way to the bottom of print area eliminating all other pages, then I would run this piece of code below that would reset the margin and zoom after which it resets the page correctly. Do you know of a piece of code that might assist me with this dilemma?
Code: Select all
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.1)
.RightMargin = Application.InchesToPoints(0.1)
.TopMargin = Application.InchesToPoints(0.25)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.CenterHorizontally = True
.CenterVertically = False
.Zoom = 68
End With