Excel 2003: Print Area

O

oceanmist

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?
 
B

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
 
O

oceanmist

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

Bernard Liengme said:
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
Click to expand...
 
B

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)
 
Top