Print area

[smarty]

I have many workbooks that have from 10 to 60 worksheets. All pages have the
same set up in them. It's just that some data changes. I have a template set
up and now want to set the print area for all the pages. When i select all
sheets the print area menu greys out. How can I do this without setting it
for each worksheet idividually?

[Paul B]

smarty, here is one way using a macro, will set the print area on all sheets
in the workbook

Sub Set_Print_Area()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.PageSetup.PrintArea = "$A$1:$C$25" '******Change to your range*******
Next ws
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"smarty" <[email protected]> wrote in message
news:[email protected]...
> I have many workbooks that have from 10 to 60 worksheets. All pages have
the
> same set up in them. It's just that some data changes. I have a template
set
> up and now want to set the print area for all the pages. When i select all
> sheets the print area menu greys out. How can I do this without setting it
> for each worksheet idividually?

[Jim Cone]

Or you can use the free Excel add-in "Excel Extras".
It will set identical print areas on all selected sheets. (or clear them)
Does other stuff too. Comes with an install/use Word.doc file.
Download from... http://www.realezsites.com/bus/primitivesoftware
--
Jim Cone
San Francisco, USA


"smarty" <[email protected]>
wrote in message
I have many workbooks that have from 10 to 60 worksheets. All pages have the
same set up in them. It's just that some data changes. I have a template set
up and now want to set the print area for all the pages. When i select all
sheets the print area menu greys out. How can I do this without setting it
for each worksheet idividually?