Am I missing something?

[dustinb via OfficeKB.com]

When the below code runs it should set the sheet to print to 1 page wide 1000
long and landscape. It is changing to Landscape and may be 1000 tall but the
wide command is not working at all.

With ActiveSheet.PageSetup
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1000
End With

This is only a small part of a good deal of formatting that I am doing to the
report. I have tried putting it as the last section of code in the sub and
also tried putting it in it's own sub and just calling it last, middle, and
first. Please help.

 

[Gary Brown]

Try putting...
.Zoom = False
just before your .Fit statements

 

[dustinbrearton via OfficeKB.com]

Fantastic!!! I knew it would probably be something small that I left out.
Thanks for the help.

Try putting...
.Zoom = False
just before your .Fit statements

When the below code runs it should set the sheet to print to 1 page wide 1000
long and landscape. It is changing to Landscape and may be 1000 tall but the

[quoted text clipped - 10 lines]

also tried putting it in it's own sub and just calling it last, middle, and
first. Please help.