I am trying to add a new question but can not get anywhere.
I have a spreadsheet that you input a date and the data appears. What I
want to do is goto cell I1 insert the first date of the month, print range
a1:j56. Then I want to repeat this same action automatically with some kind
of code. Like I put in the first date and print the spreadsheet, then go
back to cell I1 (is where the date resides)have the date increment by 1
print. Do that for everyday of the month. Is this possible?

"William Horton" wrote:

Oh, I think I understand you now. Running the code I provided you with
should have successfully set the "Print Area" of each worksheet in your
workbook. It will NOT actually print any of your worksheets. To print all
of the worksheets in a workbook choose from the Excel menu path File / Print
and then choose the Entire Workbook option in the print what section at the
bottom of the dialog box. Choose whatever other options you want and click
OK. This should print the Entire workbook using the print area that you set
on all the worksheets using the macro I provided.

Hope this is what you needed.

Thanks,
Bill Horton

"lschuh" wrote:

Sub setprintareaallsheets()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.PageSetup.PrintArea = "a1:j48"
Next sh
End Sub

this is what I put in the this workbook
I went to the tools, macros, picked the macro and chose run. I only got 1
sheet.
I don't know how to print the next worksheet. I don't know how to code that.

"William Horton" wrote:

It should work. It's working for me. Dumb question, but are you running the
macro properly. Put your cursor anywhere in the workbook you want to set the
print areas for. Then from the Excel menu path choose Tools / Macro /
Macros. Then highlight the macro you created (SetPrintAreasAllSheets) and
click on Run. This should work.


"lschuh" wrote:

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).