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.

.