FitToPagesWide

[Mike H.]

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]

Make sure you include the .zoom = false:

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

 

[ward376]

        .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