Can't set "Fit to Page" in simple VBA macro

Recorded a page setup macro and picked out the properties I wanted to set

All get applied except the last 2 statements in the With clause

What am I missing?

ActiveSheet.PageSetup.PrintArea = "$B$1:$N$186"
With ActiveSheet.PageSetup
    .LeftMargin = Application.InchesToPoints(0.25)
    .RightMargin = Application.InchesToPoints(0.25)
    .Orientation = xlLandscape
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With

Thanks in advance

You are missing this:

        .Zoom = False