PageSetup print settings not working

[mikeymay]

I am using the following to set up a worksheet to print 1 page wide and then however many long to print the range

        With ActiveSheet.PageSetup
            .PrintArea = rngPrintRange
            .PrintTitleRows = "$13:$14"
            .LeftMargin = Application.InchesToPoints(0.393700787401575)
            .RightMargin = Application.InchesToPoints(0.393700787401575)
            .TopMargin = Application.InchesToPoints(0.590551181102362)
            .BottomMargin = Application.InchesToPoints(0.590551181102362)
            .HeaderMargin = Application.InchesToPoints(0.511811023622047)
            .FooterMargin = Application.InchesToPoints(0.511811023622047)
            .PrintGridlines = False
            .Orientation = xlLandscape
            .FitToPagesWide = 1
            .FitToPagesTall = False
        End With

When this is executed it still retains print the page over 4 sheets wide (i can still see the page breaks on the worksheets after executing the code) and doesn't seem to print the above setting unless I set them manually.

 

[VoG]

Try adding

.Zoom=False

 

[mikeymay]

Oooo....what does that do? I didn't see it when I recorded the macro I stole from.....

I would have thought the .FitToPages command would do what I expect this to do.


Thanks