code to print page 1 in landscape, and page 2 in portrait

[palaeontology]

Hi,

I have the following code to print page 1 of any worksheet with a 5-digit name

For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "#####" Then
ws.PrintOut from:=1, To:=1
End If
Next ws

However, is it possible to change this code (again for any sheet with a 5-digit name) to print page 1 in landscape, and page 2 in portrait ?

Kind regards,

Chris

 

[footoo]

Obtained from the macro recorder :

For Each ws In ThisWorkbook.Worksheets
    If ws.Name Like "#####" Then
        ws[COLOR=#ff0000].PageSetup.Orientation = xlLandscape[/COLOR]
        ws.PrintOut From:=1, To:=1
        ws[COLOR=#ff0000].PageSetup.Orientation = xlPortrait[/COLOR]
        ws.PrintOut From:=2, To:=2
    End If
Next ws