Print Areas on multiple sheets

  • Thread starter Thread starter arunsharm82
  • Start date Start date
A

arunsharm82

Hi,

Is it possible to select the print area on many sheets at once?

For example I have a spread sheet with 15 tabs.
I want to select a certain region to print for all the tabs. Currently
I have to go through each one manually and select the print areas.
Is there any way of doing this with a macro or any other method?

Thanks in advance.
 
Do you want to print it on one page or each tab on a page?

This will print a1:d20 of each sheet

Sub test()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Range("a1:d20").PrintOut
Next
End Sub
 
Or if you want to set the printarea only

Sub test2()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.PageSetup.PrintArea = "$A$1:$D$20"
Next
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)




Ron de Bruin said:
Do you want to print it on one page or each tab on a page?

This will print a1:d20 of each sheet

Sub test()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Range("a1:d20").PrintOut
Next
End Sub
Click to expand...
 
AFAIK you must use a macro to do this

for each ws in worksheets
ws.PageSetup.PrintArea = "$a$1:$F$1"
next
 
Back
Top