Global Print settings

[Peter100]

I Have a Workbook with 31 sheets (one for each day of the month)

I want to set each sheet to print the same print range and have it print to 1 pages wide x 2 pages tall having the same page break position on each sheet.

Is there a way of achieving this globally or do I have top set each sheet individualy.

 

[Legacy 98055]

Sub SetPrint()
Dim s
For Each s In Worksheets
s.PageSetup.PrintArea = "$A$1:$I$100"
Next
End Sub

Edit the print area..."$A$1:$I$100" to suit.
If you will need to set headers, footers, margins, ect...
Post the settings for one sheet and wqe can incorporate them into this code.

Tom

 

[Peter100]

attn: TS Tom
I've inserted the code into the Workbook area but it seems to make no difference. Am I putting it in the right place ?
The required print settings are
Print rang =A1 - I128
Page Break at row 64
Headers = A1 - I2
This message was edited by Peter100 on 2002-04-24 05:36