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

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?

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

Group the Sheets first.

scru_ball wrote:

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?

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

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

On Mon, 2 Feb 2009 14:13:00 -0800, scru_ball
wrote:

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?

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

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 Sub
--------------------


--
mdmackillop
------------------------------------------------------------------------
mdmackillop's Profile: http://www.thecodecage.com/forumz/member.php?userid=113
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=57727