Excel 2003: Print Area

[Guest]

I have a workbook with 12 worksheets in it. They are all basically the same
so when I set the print area for one it could be the same for all 12
worksheets. Is there a way to do this all at once rather than 12 times?

 

[Bernard Liengme]

Try this subroutine

Sub Macro1()
For Each ws In Worksheets
ws.Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$20"
Next
End Sub

Let me know if you need help adding a macro
best wishes

 

[Guest]

Yes, I do. I don't have a clue how to do this.

Try this subroutine

Sub Macro1()
For Each ws In Worksheets
ws.Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$20"
Next
End Sub

Let me know if you need help adding a macro
best wishes

 

[Bernard Liengme]

With you workbook open use the command Tools | Macro | Visual Basic Editor
In the Edit use Insert | Module
Now copy and paste my module to the main window in the Editor
Is some lines get split into two in the email, carefully use
delete/backspace to fix. The longest line is
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$20"
and should appear as one line

Return to the worksheet; Use Tools | Macro | Macros and click on TryThis

best wishes (don't be afraid to ask for clarification)

 

[Bernard Liengme]

Oops, my macro is called Macro1 so click on in last step!