Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Dilnavas, some prints can do this, check your printer set up and see, if not
here is some code 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 -- 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 "DILNAVAS" wrote in message ... How to print odd pages and even pages seperately. For ex I have 100 pages with page numbers customized to read "001" upto "100" and I want to print all "Even pages" first then at the reverse side I want to print all "odd pages". How to complete this task in two setp printing. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|