.fittopages wide & .fittopagestall commands

A small problem here. I am adding sheets to my workbook with a macro, and I can't get the .fittopages wide & .fittopagestall commands to work. I have a bunch of other things in the 'With ActiveSheet.PageSetup' section that work just fine, but can't get this to work. Here's a section of my code:

ActiveSheet.PageSetup.PrintArea = "$A:$P"
With ActiveSheet.PageSetup
.CenterHeader = "&14CURRENT VENDOR BALANCES" & Chr(10) & "AS OF &D"
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.Orientation = xlLandscape
.CenterHorizontally = True
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

Can someone help me with this please. Thanks in advance.