Printing Odd or Even Pages

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.
Click to expand...

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).
Click to expand...

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.
 
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
 
Hi Naveen,
and you have not answered my second question

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.
Click to expand...
 
Back
Top