software

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,

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

Gord Dibben (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(quot;Get.Document(50)quot;)
oddoreven = InputBox(quot;Enter 1 for Odd, 2 for Evenquot;)
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:

www.mvps.org/dmcritchie/excel/getstarted.htmgt; 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,
Normanquot;NAVEENquot; gt; wrote in message
news
gt; Hi,
gt;
gt; Can any body tell me
gt; 1. How to print all/ some Odd pages or Even pages in Excel.
gt; 2. How to print some specified pages only (ex: 1,5, 8 to 10).
gt;
gt; Advance thanks.
gt;
gt; Bye.
gt;
gt; NAVEEN
gt;
gt;
Thank you very much. It is very useful for me.

and you have not answered my second question

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

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

quot;Norman Jonesquot; wrote:

gt; Hi Naveen,
gt;
gt; gt; 1. How to print all/ some Odd pages or Even pages in Excel.
gt;
gt; Gord Dibben (tinyurl.com/mszhb) posted the following macro:
gt;
gt; Sub PrintDoubleSided()
gt; Dim TotalPages As Long
gt; Dim Pg As Long
gt; Dim oddoreven As Integer
gt; On Error GoTo enditt
gt; TotalPages = ExecuteExcel4Macro(quot;Get.Document(50)quot;)
gt; oddoreven = InputBox(quot;Enter 1 for Odd, 2 for Evenquot;)
gt; For Pg = oddoreven To TotalPages Step 2
gt; ActiveWindow.SelectedSheets.PrintOut From:=Pg, To:=Pg
gt; Next Pg
gt; enditt:
gt; End Sub
gt;
gt; If you are not familiar with macros, you may wish to visit David McRitchie's
gt; 'Getting Started With Macros And User Defined Functions' at:
gt;
gt; www.mvps.org/dmcritchie/excel/getstarted.htm
gt;
gt;
gt; gt; 2. How to print some specified pages only (ex: 1,5, 8 to 10).
gt;
gt; Select the required sheets, by control-clicking them, and check the 'Active
gt; sheets' option in the print dialog. Remember to remove the multi-sheet
gt; selection - click an unselected sheet.
gt;
gt;
gt; ---
gt; Regards,
gt; Norman
gt;
gt;
gt; quot;NAVEENquot; gt; wrote in message
gt; news
gt; gt; Hi,
gt; gt;
gt; gt; Can any body tell me
gt; gt; 1. How to print all/ some Odd pages or Even pages in Excel.
gt; gt; 2. How to print some specified pages only (ex: 1,5, 8 to 10).
gt; gt;
gt; gt; Advance thanks.
gt; gt;
gt; gt; Bye.
gt; gt;
gt; gt; NAVEEN
gt; gt;
gt; gt;
gt;
gt;
gt;

Hi Naveen,

gt; and you have not answered my second question

gt; gt; 2. How to print some specified pages only (ex: 1,5, 8 to 10).
gt;
gt; Select the required sheets, by control-clicking them, and check the
gt; 'Active
gt; sheets' option in the print dialog. Remember to remove the multi-sheet
gt; selection - click an unselected sheet.---
Regards,
Norman
quot;NAVEENquot; gt; wrote in message
...
gt; Thank you very much. It is very useful for me.
gt;
gt; and you have not answered my second question
gt;
gt; quot;How can I print page 1, 2, 5, and 8 to 10 in Sheet1 at a time.quot;
gt;
gt; And also kindly tell me, is there any other way with I can do the above
gt; two
gt; things i.e., without using macros.
gt;
gt; Thanks once again.
gt;
gt; Bye.
gt;
gt; NAVEEN
gt;
gt; quot;Norman Jonesquot; wrote:
gt;
gt;gt; Hi Naveen,
gt;gt;
gt;gt; gt; 1. How to print all/ some Odd pages or Even pages in Excel.
gt;gt;
gt;gt; Gord Dibben (tinyurl.com/mszhb) posted the following macro:
gt;gt;
gt;gt; Sub PrintDoubleSided()
gt;gt; Dim TotalPages As Long
gt;gt; Dim Pg As Long
gt;gt; Dim oddoreven As Integer
gt;gt; On Error GoTo enditt
gt;gt; TotalPages = ExecuteExcel4Macro(quot;Get.Document(50)quot;)
gt;gt; oddoreven = InputBox(quot;Enter 1 for Odd, 2 for Evenquot;)
gt;gt; For Pg = oddoreven To TotalPages Step 2
gt;gt; ActiveWindow.SelectedSheets.PrintOut From:=Pg, To:=Pg
gt;gt; Next Pg
gt;gt; enditt:
gt;gt; End Sub
gt;gt;
gt;gt; If you are not familiar with macros, you may wish to visit David
gt;gt; McRitchie's
gt;gt; 'Getting Started With Macros And User Defined Functions' at:
gt;gt;
gt;gt; www.mvps.org/dmcritchie/excel/getstarted.htm
gt;gt;
gt;gt;
gt;gt; gt; 2. How to print some specified pages only (ex: 1,5, 8 to 10).
gt;gt;
gt;gt; Select the required sheets, by control-clicking them, and check the
gt;gt; 'Active
gt;gt; sheets' option in the print dialog. Remember to remove the multi-sheet
gt;gt; selection - click an unselected sheet.
gt;gt;
gt;gt;
gt;gt; ---
gt;gt; Regards,
gt;gt; Norman