How do you apply a print area to an entire workbook

  • Thread starter Thread starter Darrelldebb
  • Start date Start date
D

Darrelldebb

I want to apply a print range to multiple worksheets in the same workbook.
The data area in all the worksheets is the same & I'd like to know if there
is an easier way of applying rather than having to go into each worksheet.
 
You can use a macro like this to apply the same print area to all worksheets:

Sub printarea()
For Each ws In Worksheets
ws.PageSetup.printarea = "$A$1:$D$5"
Next ws
End Sub

To apply to a group you could use something like:

Sub printarea()
ws = 0
While ws < 2
ws = ws + 1
ActiveWorkbook.Sheets(ws).PageSetup.printarea = "$A$1:$b$3"
Wend
End Sub

(This would only affect sheets 1 and 2)

Andrea Jones
www.stratatraining.co.uk
 
Back
Top