Multiple Sheet Setup

[Medino]

What is the best way to do multiple sheet setups (150 sheets) so that each sheet will only print on 1 page? Can I copy the format from Sheet 1 which is correct, or is there a better/faster way? I have figured out a way to do it but it takes forever. Any advice would be appreciated.

 

[VoG]

Select one sheet. Then hold down CTRL and select all the other sheets that you require, then File/Page Setup.

Or, click on the leftmost sheet, move to the rightmost sheet press SHIFT and click on the rightmost sheet to select the lot.
This message was edited by VoG™ on 2002-09-26 15:32

 

[Joe Was]

The fastest way to print is to set the "Print Area" and the "Page SetUp" for each sheet from the menu one active sheet after another. Excel will remember each sheets print set up and formatting. Then use the macro below. This way of printing is the fastest way. JSW

Sub myPrintAll()
'Each sheet gets its own two print lines.
'Add your sheet names for the names below!

Sheets("Input Form").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("Related Form").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("Factor Sheet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

'Go back to this sheet after printing!
Sheets("Input Form").Range("A1").Select
End Sub