| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.newusers
|
|||
|
|||
Printe Odd Pages
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 |
|
#2
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
Printe Odd Pages
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 |
|
#3
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
Printe Odd Pages
No I don't believe you can
"Prem Soni" wrote: 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 |
|
#5
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
Printe Odd Pages
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 On Mon, 7 Apr 2008 06:56:01 -0700, Prem Soni wrote: 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 |
|
#6
Posted to microsoft.public.excel.newusers
|
|||
|
|||
|
Printe Odd Pages
Ok Thanks Gord.
"Gord Dibben" wrote: 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 On Mon, 7 Apr 2008 06:56:01 -0700, Prem Soni wrote: 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I delete pages in Excel? Keeps printing blank pages at end. | Charts and Charting in Excel | |||
| Need Help -- Baseball stats in excel only has 23 pages--Need to addmore pages.. | Setting up and Configuration of Excel | |||
| Need Help -- Baseball stats in excel only has 23 pages--Need to addmore pages... | Excel Worksheet Functions | |||
| How do I delete pages from an Excell template of mutiple pages | Excel Discussion (Misc queries) | |||
| Printe Autofilter Criterias in a Loop | Excel Discussion (Misc queries) | |||
Linear Mode
