Paste this into a standard module:

Sub DictatePrintSheetOrder()
Dim Shname
Shname = Array("Sheet2", "Sheet3", "Sheet1")
For N = LBound(Shname) To UBound(Shname)
Sheets(Shname(N)).PrintPreview 'Change PrintPreview to
PrintOut if it is working correct
Next
End Sub

HTH - advise whether it works for you..





"RagDyer" wrote in message
:

Simply reverse the order of the tabs in the WB!
--
HTH,

RD

---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------
"JenniferLee" wrote in message
...
A user has a number of workbooks that were set up adding a new sheet for
each
new time period, be it a day, month, week, year, etc. So, in one example,
Sheet 1 would be January, Sheet 2 would be February, and so on. They want
to
easily print all the sheets in the workbook in reverse sheet order, so
that
December (Sheet 12) is on top and January (Sheet 1) is on the bottom. I
cannot find a way to do this in Excel, and their printer does not have a
reverse printing option. Is there any way to do this short of a macro
(and
for that matter, can it even be done in a macro?).
Many thanks in advance for any assistance.