How do I get a certain page to print in Landscape.

[ghrek]

Hi

I have the following macro and im trying to get the last page called CASH SHEET to print in landscape.

All the others I need in portrait
Any Ideas?

Sub PRINTSHEETS()
'

 Sheets("SHIFT SHEET").Range("A1:M83").PrintOut Copies:=1, Collate:=True
 Sheets("Sheet2").Range("A1:G50").PrintOut Copies:=1, Collate:=True
 Sheets("CASH SHEET").Range("A1:R39").PrintOut Copies:=1, Collate:=True
 End Sub

 

[GlennJ]

Try this

Sub PRINTSHEETS()
'

 Sheets("SHIFT SHEET").Range("A1:M83").PrintOut Copies:=1, Collate:=True
 Sheets("Sheet2").Range("A1:G50").PrintOut Copies:=1, Collate:=True
 Sheets("CASH SHEET").Range("A1:R39").PrintOut Copies:=1, Collate:=True
   With ActiveSheet.PageSetup
        .Orientation = xlLandscape
    End With
 End Sub

 

[ghrek]

brill many thanks