VBA printing on one page issue

[normpam]

In the following code I have 'FitToPagesWide' and tall = 1, but when run, it still shows up on two pages. What am I missing here?
Much thanks for any help.

Sheets("Original").Select
    Do Until ActiveSheet.Name = "zzz"
    ActiveSheet.Next.Select
    RowNum = Range("A10000").Offset.End(xlUp).Row
    Range("a2:P" & RowNum).Select
    If ActiveSheet.Name = "zzz" Then
    Sheets("Original").Select
    End
    End If
 
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
       
    Selection.PrintPreview

 

[MARK858]

Does the below make a difference.
Btw, can you please use code tags in future as not using them makes your code hard to read.

With ActiveSheet.PageSetup
  .PrintTitleRows = "$1:$1"
  .PrintTitleColumns = ""
  .Orientation = xlLandscape
  [COLOR="#FF0000"].Zoom = False[/COLOR]
  .FitToPagesWide = 1
  .FitToPagesTall = 1
End With