Sometimes I issue the command:

With ActiveSheet.PageSetup
.FitToPagesWide = 1
....etc...
end with

And the Pages Wide is more than 1. Any Ideas why this happens?

Make sure you include the .zoom = false:

.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1



Mike H. wrote:

Sometimes I issue the command:

With ActiveSheet.PageSetup
.FitToPagesWide = 1
...etc...
end with

And the Pages Wide is more than 1. Any Ideas why this happens?

--

Dave Peterson

* * * * .Zoom = False
* * * * .FitToPagesWide = 1
* * * * .FitToPagesTall = False

If you make the pages tall false, it will keep it to 1 page wide
regardless of the number of pages tall.

Cliff Edwards