View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
Kevin B Kevin B is offline
external usenet poster
 
Posts: 1,316
Default 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.