Printe Odd Pages

[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

 

[Mike H]

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

 

[Prem Soni]

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

 

[Mike H]

No I don't believe you can

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

 

[Gord Dibben]

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

 

[Prem Soni]

Ok Thanks Gord.

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