You could record a macro while selecting sheets1, 3, 5, 7 etc. and set to
landscape.

Then record while selecting the even number sheets and setting to potrait.

Combine the two and provide the execs with a print button that runs the combined
macro.

Sub Print_Set()

Sheets(Array("Sheet1", "Sheet3", "Sheet5")).Select
Sheets("Sheet1").Activate
With ActiveSheet.PageSetup

.Orientation = xlPortrait

End With
ActiveWindow.SelectedSheets.PrintOut

Sheets(Array("Sheet2", "Sheet4", "Sheet6")).Select
Sheets("Sheet2").Activate
With ActiveSheet.PageSetup

.Orientation = xlLandscape

End With
ActiveWindow.SelectedSheets.PrintOut

End Sub


Gord Dibben MS Excel MVP

On Wed, 11 Apr 2007 07:30:06 -0700, PowerPoint Jedi
wrote:

Hello,
I am trying to print out a excell spreadsheet that has 16 different
sheets (tabs) tabs 1,3,5,7.....15 are all setup as landscape. Tabs
2,4,6,8....16 are all setup as protrait. If I preview these individually
they look correct, if I preview all 16 at once they all default to landscape.
I tried printing just to see what would happen and itcutoff the bottom of
the portrait layouts like they were landsape. As I need to send this out so
execs can simply hit print, I need to be able to print all 16 in the correct
layout easily. What am I doing wrong? This makes no sense. I am using
excell 2003 and have setup each tab individually. Please help