Landscape entire workbook

C

Carol

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.
 
M

Marcelo

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

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



"Carol" escreveu:
 
K

Kevin B

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
 
G

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
 
Top