How do I print odd numbered pages

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I want to print double sided. The even numbers on one side and the odds on
the other. Is there a way to do this in Excel
 
Maryjanet, check your printer settings there may be an option there to do
it, if not here is a macro from Gord Dibben that will 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

And if you are new to macros you may also what to have a look here on
getting started with macros
http://www.mvps.org/dmcritchie/excel/getstarted.htm


--
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
 
Back
Top