Printing odd pages

  • Thread starter Thread starter Guest
  • Start date Start date
Matt, there might be a setting in print set up for this in your printer, if
not you could use this macro to do it

Sub PrintDoubleSided()

'Will print odd or even pages

'By Gord Dibben

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
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How to print on odd and even number page wise Please clarify 1
How to print odd pages and even pages seperately in Excel. 1
prent even or odd page pnly 1
Printing Odd or Even Pages 3
how do you print odd numbered pages 4
Excel Unique last page footer 1
I need to print only odd pages & then even pages 1
Different margins for Even and Odd pages 2

Back
Top