Printing odd/even pages?

[Terry Pinnell]

In Word and many other programs with printing facilities, there's an
option to choose whether to print all odd or even pages. I sometimes
find that handy, in order to print on both sides of the paper. Maybe
I'm not looking in the right place, but is there no such feature in
Excel 2000 please?

 

[Paul B]

Terry, Some printers will allow you to do this. Look under
File|Print|properties

If not here is some code by Gord Dibben 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

 

[Terry Pinnell]

Terry, Some printers will allow you to do this. Look under
File|Print|properties

If not here is some code by Gord Dibben 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

Many thanks, Paul.

Seems odd (so to speak <g>) that there's no simple option in Excel to
do it, as here in Word (from the same Office 2000 Suite)
http://www.terrypin.dial.pipex.com/Images/WordPrinting.jpg