I did that and what I am getting is one sheet only. I put the macro in this
workbook
and placed my cursor in a1 of sheet "day0". Did I do something wrong?

"William Horton" wrote:

I don't believe you can change the print area on multiple sheets
simultaneously manually by grouping sheets. However, you can do it by using
a macro. Try the below code.

Sub SetPrintAreaAllSheets()
For Each Sh In ActiveWorkbook.Sheets
Sh.PageSetup.PrintArea = "A1:C25"
Next Sh
End Sub

Ensure you run it from the active workbook (the workbook you want to set the
print area in. It will set the print area for all the sheets in the workbook.
Of course you must substitute your print area range where I have "A1:C25".

Hope this helps.

Thanks,
Bill Horton

"lschuh" wrote:

I have done everything that the help has given me. I need to print out a
spreadsheet that has 31 tabs. I want to change the original print area to a
new one on all the sheets. I can't seem to accomplish this. I have tried to
right click the tabs and choose select (group) I have tried to name ranges
with the ='day1:day31'!a1:j48. This only works on 1 or two pages. Is there
a way to remove an existing print range and replace it with a new one in an
entire workbook? This would be helpful as I need to print out the daily
production for 2 1/2 years (1000 sheets of paper).