How do I set a print area for every sheet in the workbook?

[scru_ball]

When I print from an Excel workbook, I want to print the same print are for
every sheet. Is there a way to make it the default print area without having
to select it in every sheet?

 

[Bob I]

Group the Sheets first.

 

[Gord Dibben]

Unfortunately print area and rows to repeat are two functions that cannot be
set with grouped sheets as Bob I suggested.

Using VBA code you can set the same print range and rows to repeat at top on
each sheet in grouped sheets.

See this google search result with Dave Peterson and myself posting. The
print area code is from Bob Flanagan.

http://snipurl.com/106kz


Gord Dibben MS Excel MVP

 

[mdmackillop]

Code
-------------------
Sub PrintAreas()
Dim Rng As Range
Dim sh As Worksheet
Set Rng = Application.InputBox("Select print area", Type:=8)
For Each sh In Worksheets
sh.PageSetup.PrintArea = Rng.Address
Next
End Su