I should have mentioned we have a printer that has
printing on both sides capabilities. Xerox Document Center
332.

-----Original Message-----
Herb

Run once to print odd numbered pages. Turn paper over in
tray then run again
to print even numbered pages.

Sub PrintDoubleSided()
Dim Totalpages As Long
Dim pg As Long
Dim oddoreven As Integer
On Error GoTo enditt
Totalpages = ExecuteExcel4Macro("Get.Document(50)")
oddoreven = InputBox("Enter 1 for Odd, 2 for Even")
For pg = oddoreven To Totalpages Step 2
ActiveWindow.SelectedSheets.PrintOut from:=pg,
To:=pg
Next pg
enditt:
End Sub

Gord Dibben Excel MVP - XL97 SR2 & XL2002

On Fri, 18 Jul 2003 07:19:07 -0700, "Herb"

wrote:

I have two sheets in one workbook I need to print on one
sheet. Can this be done with a macro?

Thanks for your help.

.

If this is just you running the macro, maybe you can create another printer
(same physical printer, though) that is set up for duplex. Then your macro can
just change to that printer (and back) when you want to print duplex/simplex.

If you have a small number of people running the macro, it might be worth
setting up a second for them.

(I'd record a macro when switching printers to get the spelling of the printers
correct.)

Herb wrote:

I need the macro to do this. I have a macro that opens
other workbooks then copies different sheets to my open
workbook. Then I have some sheets printed on one side and
the rest on both sides of the paper.

I need to know the syntex on how to do this.
I don't want the users to have to do anything.

Thanks for the quick reply.
Regards,
Herb

-----Original Message-----
Then go into the printer setup dialog and set it to do
duplex printing.

Then just print your document.

Regards,
Tom Ogilvy


"Herb" wrote in message
...
I should have mentioned we have a printer that has
printing on both sides capabilities. Xerox Document
Center
332.

-----Original Message-----
Herb

Run once to print odd numbered pages. Turn paper over
in
tray then run again
to print even numbered pages.

Sub PrintDoubleSided()
Dim Totalpages As Long
Dim pg As Long
Dim oddoreven As Integer
On Error GoTo enditt
Totalpages = ExecuteExcel4Macro("Get.Document(50)")
oddoreven = InputBox("Enter 1 for Odd, 2 for Even")
For pg = oddoreven To Totalpages Step 2
ActiveWindow.SelectedSheets.PrintOut from:=pg,
To:=pg
Next pg
enditt:
End Sub

Gord Dibben Excel MVP - XL97 SR2 & XL2002

On Fri, 18 Jul 2003 07:19:07 -0700, "Herb"

wrote:

I have two sheets in one workbook I need to print on
one
sheet. Can this be done with a macro?

Thanks for your help.

.



.


--

Dave Peterson