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

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!

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.

"Mrs. Ike" 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!

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

"Mrs. Ike" 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!

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!

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!