Page not printing to 1 wide by 1 tall

[gsgriffin]

I'm perplexed as to why this doesn't fit the selected area to one page wide by one page tall. I tried the process manually and recorded it to a macro and came up with this. It works in the macro, but I noticed that it does not fit to the width in the preview. I had to go to the setup (within preview), reselect the page width, and then it fit it all to one page. Unfortunately, the code is identical.

Any ideas?


ActiveSheet.PageSetup.PrintArea = PrintSection
With ActiveSheet.PageSetup
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
End With

ActiveWindow.SelectedSheets.PrintPreview

 

[sfvb]

Add this and see if it works.

.Zoom = False

 

[gsgriffin]

Nope. Still shows the page not fitting in the preview window. I have to press the Setup button on the preview screen and enter a "1" in the box for the width. It seems to have nothing in that field but a "1" in the pages tall field.