Global Print settings

Peter100 · Apr 24th, 2002, 02:11 AM

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.

Tom Schreiner · Apr 24th, 2002, 02:16 AM

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 · Apr 24th, 2002, 06:04 AM

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 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 24th, 2002, 02:11 AM	#1
Peter100 Board Regular Join Date: Apr 2002 Posts: 758	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.

Apr 24th, 2002, 02:16 AM	#2
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	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

Apr 24th, 2002, 06:04 AM	#3
Peter100 Board Regular Join Date: Apr 2002 Posts: 758	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 ]