Macro won't execute code to put focus on "print to x pages wide by x pages tall"

Hi all,

I'm trying to execute a macro and it won't put the focus (radio button) to select x pages wide by x pages tall in the Page Setup/Page/Scaling Area. I looked at the macro and can't find a setting in the code but yet the focus won't change. What can I do about this? In other words the radio button stays selected as "adjust to "" % of normal size.

Here's the code...

 ActiveSheet.PageSetup.PrintArea = "$A$1:$K$48"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "&""Arial,Bold""&Report as of &D"
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = "&""Arial,Bold""&16# of Matters = "
        .RightFooter = "&""Arial,Bold""&16&P of &N"
        .LeftMargin = Application.InchesToPoints(0.25)
        .RightMargin = Application.InchesToPoints(0.25)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.25)
        .FooterMargin = Application.InchesToPoints(0.25)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 1200
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlOverThenDown
        .BlackAndWhite = True
        .Zoom = 100
        .FitToPagesWide = 1
        .FitToPagesTall = 5
        .PrintErrors = xlPrintErrorsDisplayed
    End With
ActiveSheet.PrintOut

Thanks