How to set the Page Breaks in VBA and force 1 page by 2 pages

I am trying to force a 1 page by 2 page Print layout using a print dialogue. I think I have that.
I struggle because on a few of our people's computers the page break gets altered and it prints wrong.
So I am try to manually set the page break:

If ChSalesOrder.Value = True Then
   Sheets("Sales Order").Activate
   With ActiveSheet.PageSetup
     .Zoom = False
     .FitToPagesWide = 1
     .FitToPagesTall = 2
   End With
   Sheets("Sales Order").Rows(60).PageBreak = xlPageBreakManual
 End If

I have tried to set it at different rows and there is no change - so it is not working

Any ideas?