Landscape entire workbook

[Guest]

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.

 

[Guest]

right click on the sheet tab, file page setup, landscape

hth
--
regards from Brazil
Thanks in advance for your feedback.
Marcelo



"Carol" escreveu:

 

[Guest]

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

 

[Gord Dibben]

Carol

Right-click on a sheet tab and "select all sheets"

Set the active sheet for Landscape and all sheets will be done.

DO NOT FORGET to right-click and "ungroup" after.


Gord Dibben MS Excel MVP