FitToPagesWide Leaving Extra Columns In Print Area

[rootdown42]

I'm using VBA code to loop through a bunch of rows and hide them based on cell values. Because of the performance issue encountered by recalculating page breaks when hiding/unhiding rows multiple times I inserted

ActiveSheet.DisplayPageBreaks = False

to speed up performance, which works great. I figured that at the end of the code I'd just reformat the breaks. Since I just need this to fit on one large 8 X 14 sheet I inserted

ActiveSheet.PageSetup.FitToPagesWide = 1

The problem is that when viewing the print preview there are still several empty columns to the right that are showing up on the page, wasting extra space. I highlighted/deleted every unused column just to be safe and reopened the file, but the problem persisted. When I manually adjust the scaling to 55% I can get it to fit perfect, but even manually checking "Fit to 1 page" shrinks it back down to 49% and the empty columns.

Anyone have any suggestions as to what else could be causing this? Any help is appreciated.

 

[VoG]

Try this

With ActiveSheet.PageSetup
    .FitToPagesWide = 1
    .FitToPagesTall = 5 ' change 5 to suit
    .Zoom = False
End With

 

[rootdown42]

Sorry, that additional code doesn't change anything. Excel still feels the need to include the empty extra columns.