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