Change Print to 'Landscape'

[mferrisi]

Does anyone have the line of code to format a sheet to landscape for printing? thank you,
Matt

[jolivanes]

Hi Matt.
When you tried to do this with the macro recorder, what did it say? Did it not work?
John

[AAM]

I have a button to toggle portrait/landscape:
Sub PrintOrient()
If ActiveSheet.PageSetup.Orientation = xlLandscape Then
ActiveSheet.PageSetup.Orientation = xlPortrait
Else
ActiveSheet.PageSetup.Orientation = xlLandscape
End If
End Sub

[mdmackillop]

You can simplify the toggle using a With statement
Sub PrintOrient()
With ActiveSheet.PageSetup
If .Orientation = xlLandscape Then
.Orientation = xlPortrait
Else
.Orientation = xlLandscape
End If
End With
End Sub

[AAM]

Thanks. And I know code like that runs faster when there's a lot of it.