Hi,

Can any body tell me
1. How to print all/ some Odd pages or Even pages in Excel.
2. How to print some specified pages only (ex: 1,5, 8 to 10).

Advance thanks.

Bye.

NAVEEN

Hi Naveen,

1. How to print all/ some Odd pages or Even pages in Excel.

Gord Dibben (http://tinyurl.com/mszhb) posted the following macro:

Sub PrintDoubleSided()
Dim TotalPages As Long
Dim Pg As Long
Dim oddoreven As Integer
On Error GoTo enditt
TotalPages = ExecuteExcel4Macro("Get.Document(50)")
oddoreven = InputBox("Enter 1 for Odd, 2 for Even")
For Pg = oddoreven To TotalPages Step 2
ActiveWindow.SelectedSheets.PrintOut From:=Pg, To:=Pg
Next Pg
enditt:
End Sub

If you are not familiar with macros, you may wish to visit David McRitchie's
'Getting Started With Macros And User Defined Functions' at:

http://www.mvps.org/dmcritchie/excel/getstarted.htm


2. How to print some specified pages only (ex: 1,5, 8 to 10).

Select the required sheets, by control-clicking them, and check the 'Active
sheets' option in the print dialog. Remember to remove the multi-sheet
selection - click an unselected sheet.


---
Regards,
Norman


"NAVEEN" wrote in message
...
Hi,

Can any body tell me
1. How to print all/ some Odd pages or Even pages in Excel.
2. How to print some specified pages only (ex: 1,5, 8 to 10).

Advance thanks.

Bye.

NAVEEN

Thank you very much. It is very useful for me.

and you have not answered my second question

"How can I print page 1, 2, 5, and 8 to 10 in Sheet1 at a time."

And also kindly tell me, is there any other way with I can do the above two
things i.e., without using macros.

Thanks once again.

Bye.

NAVEEN

"Norman Jones" wrote:

Hi Naveen,

1. How to print all/ some Odd pages or Even pages in Excel.

Gord Dibben (http://tinyurl.com/mszhb) posted the following macro:

Sub PrintDoubleSided()
Dim TotalPages As Long
Dim Pg As Long
Dim oddoreven As Integer
On Error GoTo enditt
TotalPages = ExecuteExcel4Macro("Get.Document(50)")
oddoreven = InputBox("Enter 1 for Odd, 2 for Even")
For Pg = oddoreven To TotalPages Step 2
ActiveWindow.SelectedSheets.PrintOut From:=Pg, To:=Pg
Next Pg
enditt:
End Sub

If you are not familiar with macros, you may wish to visit David McRitchie's
'Getting Started With Macros And User Defined Functions' at:

http://www.mvps.org/dmcritchie/excel/getstarted.htm


2. How to print some specified pages only (ex: 1,5, 8 to 10).

Select the required sheets, by control-clicking them, and check the 'Active
sheets' option in the print dialog. Remember to remove the multi-sheet
selection - click an unselected sheet.


---
Regards,
Norman


"NAVEEN" wrote in message
...
Hi,

Can any body tell me
1. How to print all/ some Odd pages or Even pages in Excel.
2. How to print some specified pages only (ex: 1,5, 8 to 10).

Advance thanks.

Bye.

NAVEEN

Hi Naveen,

and you have not answered my second question

2. How to print some specified pages only (ex: 1,5, 8 to 10).

Select the required sheets, by control-clicking them, and check the
'Active
sheets' option in the print dialog. Remember to remove the multi-sheet
selection - click an unselected sheet.


---
Regards,
Norman



"NAVEEN" wrote in message
...
Thank you very much. It is very useful for me.

and you have not answered my second question

"How can I print page 1, 2, 5, and 8 to 10 in Sheet1 at a time."

And also kindly tell me, is there any other way with I can do the above
two
things i.e., without using macros.

Thanks once again.

Bye.

NAVEEN

"Norman Jones" wrote:

Hi Naveen,

1. How to print all/ some Odd pages or Even pages in Excel.

Gord Dibben (http://tinyurl.com/mszhb) posted the following macro:

Sub PrintDoubleSided()
Dim TotalPages As Long
Dim Pg As Long
Dim oddoreven As Integer
On Error GoTo enditt
TotalPages = ExecuteExcel4Macro("Get.Document(50)")
oddoreven = InputBox("Enter 1 for Odd, 2 for Even")
For Pg = oddoreven To TotalPages Step 2
ActiveWindow.SelectedSheets.PrintOut From:=Pg, To:=Pg
Next Pg
enditt:
End Sub

If you are not familiar with macros, you may wish to visit David
McRitchie's
'Getting Started With Macros And User Defined Functions' at:

http://www.mvps.org/dmcritchie/excel/getstarted.htm


2. How to print some specified pages only (ex: 1,5, 8 to 10).

Select the required sheets, by control-clicking them, and check the
'Active
sheets' option in the print dialog. Remember to remove the multi-sheet
selection - click an unselected sheet.


---
Regards,
Norman