Excel 2003: Print Area
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? |
Excel 2003: Print Area
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 V Liengme www.stfx.ca/people/bliengme remove caps from email "oceanmist" wrote in message ... 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? |
Excel 2003: Print Area
Yes, I do. I don't have a clue how to do this.
"Bernard Liengme" wrote: 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 V Liengme www.stfx.ca/people/bliengme remove caps from email "oceanmist" wrote in message ... 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? |
Excel 2003: Print Area
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 V Liengme www.stfx.ca/people/bliengme remove caps from email "oceanmist" wrote in message ... Yes, I do. I don't have a clue how to do this. "Bernard Liengme" wrote: 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 V Liengme www.stfx.ca/people/bliengme remove caps from email "oceanmist" wrote in message ... 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? |
Excel 2003: Print Area
Oops, my macro is called Macro1 so click on in last step!
-- Bernard V Liengme www.stfx.ca/people/bliengme remove caps from email "oceanmist" wrote in message ... Yes, I do. I don't have a clue how to do this. "Bernard Liengme" wrote: 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 V Liengme www.stfx.ca/people/bliengme remove caps from email "oceanmist" wrote in message ... 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? |
All times are GMT +1. The time now is 04:07 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com