Help woth printing different layouts

[Guest]

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

 

[Gord Dibben]

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

 

[Guest]

Probably not much help to you but when I do this in 2003 it works perfectly,
portrait stays portrait and landscape stays landscape. Can't think of any
reason why it shouldn't work for you... sorry