Landscape entire workbook
If you want to landscape all worksheets, the following macro will do that for
you:
Sub LandscapeAll()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
For Each ws In wb.Worksheets
ws.PageSetup.Orientation = xlLandscape
Next ws
Set wb = Nothing
Set ws = Nothing
End Sub
--
Kevin Backmann
"Carol" wrote:
Is there a way to set an entire workbook to print in landscape without having
to select/set each sheet individually? This would be after the workbook has
been created.
|