Marvellous! You're the best. If these work as well as I believe they
will, I'll finally have a solution to the desired green necessity of
double-sided printing that still produces workbook printouts properly
separated into their individual parts. This is great.

Fiscal year end has been the usual fun time so absolutely didn't have
a chance to breathe today let alone try the code <lol. But now that
I have actual whole macros to work with, maybe I can sneak a moment to
trial these tomorrow at some point. Boss' calendar is, miracle of
miracles, clear of meetings tomorrow, so I might just find a moment or
two to to try these out <g. Desirable since she gets so many meeting
documents to print out in any given week.

Thanks! :oD


On Tue, 29 Mar 2011 20:46:15 -0700, "Jim Cone"
wrote:

This handles both chart sheets and worksheets in a workbook...
Sub PrintAllSheetsAtOnce()
Dim sht as Object 'as Sheet isn't available
For Each sht in Sheets
sht.PrintOut
Next
End Sub
'---

If you will only be printing worksheets then...
Sub PrintAllWorksheetsAtOnce()
Dim sht as Worksheet
For Each sht in Worksheets
sht.PrintOut
Next
End Sub
'---
Note that both Sheets and Worksheets refer to the active workbook.
Both of the above can be qualified with a reference to a particular workbook...
Workbooks("Sludge").Worksheets
Also, "PrintOut" has some optional arguments that are worth reviewing.
'---

I read some recent statistics that estimated 40% of Office users have made the switch to the Ribbon.
That still leaves 60% of us who haven't had to learn to drive on the wrong side of the road.
The commercial "Extras" add-in I offer, when installed on xl2007+, includes a classic menubar &
toolbars under the Add-ins tab.
It has made my life easier.