Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Select Printing

1 view
Skip to first unread message

Jason

unread,
Jul 21, 2003, 3:03:20 AM7/21/03
to
I am using Excel version 2000 and 2002, separate
machines, and a HP 932c Printer.

How can I print only the even or odd pages of a document?

Thanks

Paul B

unread,
Jul 21, 2003, 6:47:28 AM7/21/03
to
Jason, try this macro I picked up somewhere

Sub Print_Odd_Or_Even()
'Will print odd or even pages
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


--
Paul B
Always backup your data before trying something new
Using Excel 2000 & 97
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **
"Jason" <jri...@techie.com> wrote in message
news:019001c34f56$2b34acc0$a001...@phx.gbl...

Jason

unread,
Jul 26, 2003, 4:33:55 AM7/26/03
to

I'd be glad to give it a try. Could you tell me how?

>.
>

0 new messages