small adjustment needed for Printing code

[palaeontology]

Hi,

I have the following code to print pages 1 and 2 of any sheet named with a 4-digit number ...

For Each ws In ThisWorkbook.Worksheets
    If ws.Name Like "#####" Then
        ws.Range("P22:U22").Font.Color = vbWhite
        ws.Range("P22:U22").Interior.Color = vbWhite
        ws.PageSetup.Orientation = xlLandscape
        ws.PrintOut From:=1, To:=1
        ws.PageSetup.Orientation = xlLandscape
        ws.PrintOut From:=2, To:=2
    End If
Next ws

How might I tweak it to say I'd like the 2 pages printed back-to-back ?

Kind regards,

Chris