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
|