View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.newusers
Prem Soni Prem Soni is offline
external usenet poster
 
Posts: 16
Default Printe Odd Pages

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" wrote:

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" wrote:

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