Printen in landscape

[Rolies]

Ik heb de volgende macro gemaakt:

Range("A1:B34").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$34"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").Select

Als ik de macro gebruik, krijg ik een print in portret. Wat moet ik toevoegen om een print in landscape te krijgen?

Alvast bedankt voor het meedenken!

 

[NuMan]

Probeer deze:
Sub LS_Afd()
'
' LS_Afd
With ActiveSheet.PageSetup
.Orientation = xlLandscape
End With
Range("A1:B34").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$34"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").Select
End Sub

 

[Rolies]

Werkt perfect!!!
Bedankt :thumb: