D
David D
I need to print uneven pages only in Microsoft Excel 97.
I am new to this. Could someone help please. Thanks.
David
I am new to this. Could someone help please. Thanks.
David
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
D
Dave Peterson
Does uneven pages mean the odd pages (1,3,5,7,...)?
If yes, maybe you could use a macro (a post by Dana DeLouis):
http://groups.google.com/groups?threadm=e3ckV8uH$GA.277@cppssbbsa05
If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
If yes, maybe you could use a macro (a post by Dana DeLouis):
http://groups.google.com/groups?threadm=e3ckV8uH$GA.277@cppssbbsa05
If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
G
Gord Dibben
David
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
Note Dave P.'s pointer to David McRitchie's "Getting Started with Macros"
Gord Dibben XL2002
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
Note Dave P.'s pointer to David McRitchie's "Getting Started with Macros"
Gord Dibben XL2002
M
mseyf
click on View>Page Break Preview. Drag or insert page breaks as neede