fixing page break in my macro

[spacecaptainsuperguy]

I have a macro that when I recorded it, I used the page break preview to make sure that the document would only be one page width wide. I used the page break mode to drag the page break out to the edge of the document. All has worked fine (for years now) until I ran into a document that was only one page wide already. Here is the chunk of code that I'm having the issue with and it's the 2nd line that is creating the error.

ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
ActiveWindow.View = xlNormalView

I know there must be a way to tell the macro to only do this if the document is larger than one page wide but I haven't been able to figure out how to do that.

Any thoughts?
thanks in advance.
SpaceCaptainSuperGuy

 

[ChrisOswald]

Try using

ActiveSheet.PageSetup.FitToPagesWide = 1

instead of the vpagebreaks() line.

this is the (edited) code from using the page setup dialog.

 

[spacecaptainsuperguy]

Awesome. I'll give that a try................worked perfectly.
Thanks so much.
I'm always amazed at how simple the fix is if you know how to fix it and how difficult it is when you're clueless.
Thanks again.