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

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

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

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

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

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