Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Is it possible to print the pages of a workbook in reverse order?
In MS Word it is possible to select an option to print pages in reverse
order. Can I do this in Excel and if so, how? |
#2
|
|||
|
|||
Some printers support this option and you can choose it from the:
File|Print|Properties button (each printer is different, though) If your printer doesn't support this, you could use a macro: Option Explicit Sub testme01() Dim TotalPages As Long Dim pCtr As Long TotalPages = ExecuteExcel4Macro("GET.DOCUMENT(50)") For pCtr = TotalPages To 1 Step -1 ActiveSheet.PrintOut _ Preview:=True, _ From:=pCtr, to:=pCtr Next pCtr End Sub This actually sends individual print jobs to the printer. If your printer prints page separators, you may not want to do this. Change the preview:=true to False when you're done testing. If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm Bawbee wrote: In MS Word it is possible to select an option to print pages in reverse order. Can I do this in Excel and if so, how? -- Dave Peterson |
#3
|
|||
|
|||
Thank you for the quick reponse. I guess this means that Excel does not support "reverse print order" in the way that Word does? "Dave Peterson" wrote: Some printers support this option and you can choose it from the: File|Print|Properties button (each printer is different, though) If your printer doesn't support this, you could use a macro: Option Explicit Sub testme01() Dim TotalPages As Long Dim pCtr As Long TotalPages = ExecuteExcel4Macro("GET.DOCUMENT(50)") For pCtr = TotalPages To 1 Step -1 ActiveSheet.PrintOut _ Preview:=True, _ From:=pCtr, to:=pCtr Next pCtr End Sub This actually sends individual print jobs to the printer. If your printer prints page separators, you may not want to do this. Change the preview:=true to False when you're done testing. If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm Bawbee wrote: In MS Word it is possible to select an option to print pages in reverse order. Can I do this in Excel and if so, how? -- Dave Peterson |
#4
|
|||
|
|||
Yep.
But maybe your printer does? Bawbee wrote: Thank you for the quick reponse. I guess this means that Excel does not support "reverse print order" in the way that Word does? "Dave Peterson" wrote: Some printers support this option and you can choose it from the: File|Print|Properties button (each printer is different, though) If your printer doesn't support this, you could use a macro: Option Explicit Sub testme01() Dim TotalPages As Long Dim pCtr As Long TotalPages = ExecuteExcel4Macro("GET.DOCUMENT(50)") For pCtr = TotalPages To 1 Step -1 ActiveSheet.PrintOut _ Preview:=True, _ From:=pCtr, to:=pCtr Next pCtr End Sub This actually sends individual print jobs to the printer. If your printer prints page separators, you may not want to do this. Change the preview:=true to False when you're done testing. If you're new to macros, you may want to read David McRitchie's intro at: http://www.mvps.org/dmcritchie/excel/getstarted.htm Bawbee wrote: In MS Word it is possible to select an option to print pages in reverse order. Can I do this in Excel and if so, how? -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Print all charts in a workbook (multiple worksheets) | Charts and Charting in Excel | |||
HOW DO I PRINT ALL PAGES AT ONCE IN A WORKBOOK THAT HAS ABOUT 20 . | Excel Discussion (Misc queries) | |||
How to print a worksheet but number the pages by workbook | Excel Discussion (Misc queries) | |||
print entire workbook default | Excel Discussion (Misc queries) |