Printe Odd Pages

  • Thread starter Thread starter Prem Soni
  • Start date Start date
P

Prem Soni

Hello All,

Can anybody tell me how can i take take printout only of Odd pages or Even
Pages or selected page like page number 1,5,11,20 ect. in Excel 2003.

Regards,
Prem Soni
 
Hi,

Right click the sheet tab on the page you want to print, view code and paste
this in and run it. Change start =1 to start = 2 to print even pages.

Sub printit()
Start = 1
Total = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For Page = Start To Total Step 2
ActiveSheet.PrintOut from:=Page, To:=Page
Next
End Sub

Mike
 
Thanks Mike!

But i want to know can i do it without this script as i can do the same in
MS-Word in print dialoug box.

Prem Soni
 
No I don't believe you can

Prem Soni said:
Thanks Mike!

But i want to know can i do it without this script as i can do the same in
MS-Word in print dialoug box.

Prem Soni
Click to expand...
 
Excel is not Word so you will have to do without some of the Word Processing
features of Word.

Printing odd pages or pages like 1,5,11,20 is beyond the capabilities of Excel.


Gord Dibben MS Excel MVP
 
Ok Thanks Gord.

Gord Dibben said:
Excel is not Word so you will have to do without some of the Word Processing
features of Word.

Printing odd pages or pages like 1,5,11,20 is beyond the capabilities of Excel.


Gord Dibben MS Excel MVP
Click to expand...
 
Back
Top