I don't know much about macros, but I so impressed with your reply, I am
going to check out the site you talked about and work this out....Thanks...

"Gord Dibben" wrote:

Mrs. Ike

Macro OK with you?

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

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + R to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to ToolMacroMacros.

You can also assign this macro to a button or a shortcut key combo.


Gord Dibben Excel MVP


On Tue, 10 May 2005 06:16:01 -0700, "Mrs. Ike" <Mrs.
wrote:

I have a printer that will not duplex, and so I am trying to print the odd
number pages and then turn over the paper and print the even numbered pages.
Can anyone tell me how to accomplish this. I thought it would be an easy
thing, but am having no luck? ThankS!