print

  • Thread starter Thread starter Chi
  • Start date Start date
C

Chi

Hi,

Would you please show me how to print only the old page numbers ?

Ex: In the page break view, I see that the file has 100 pages, but I only
want to print page 1,3,5.....

Please help
Thanks
Chi
 
Hi Eduardo,

Thank you for the respond!

I selected office button/Print/under print range option, I checked page
option and entered From 1 to 3,5,7. I got an error message.

Please help
Chi
 
Try this macro from Ron de Bruin's site.

Sub Print_Odd_Even()
Dim Totalpages As Long
Dim StartPage As Long
Dim Page As Integer

StartPage = 1 '1 = Odd and 2 = Even

'Or use the InputBox suggestion from Gord Dibben
'StartPage = InputBox("Enter 1 for Odd, 2 for Even")

Totalpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For Page = StartPage To Totalpages Step 2
ActiveSheet.PrintOut from:=Page, To:=Page, _
Copies:=1, Collate:=True
Next
End Sub


Gord Dibben MS Excel MVP
 
Hi Jim,

Thank you for the respond, but I thought you both look at Word print option.
Please correct if I am wrong. In Excel/ under Print dialog box/ Print range/
page(s ) option- From ..... To..... text boxes.

Please advice
Thank you!
Chi
 
Back
Top