How do I print just the odd or even numbered pages.

[Guest]

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!

 

[Guest]

It really depends on your print driver more than excel.
A paper wasting method though is to print it all
turn the pages over and print from page 2.
you have to throw out half the pages.

 

[Guest]

I meant to add you need to either reorder the sheets or have it print back to
front on one.

 

[Gord Dibben]

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 Insert>Module. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to Tool>Macro>Macros.

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.

 

[Guest]

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...