Printing

W

Wendy

Hi Ron- thank you for your response to my question for double-sided printing
.. I am confused how to use the code you sent me. I am not knowledgeable in
setting up the Macros.
 
R

Ron de Bruin

Hi Wendy

Alt-F11 to open the VBA editor
Insert > module (in the menubar)
Paste this two subs

Sub Print_Odd()
Dim Totalpage As Long
Dim page As Long
Totalpage = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For page = 1 To Totalpage Step 2 'Odd
ActiveSheet.PrintOut from:=page, To:=page, _
Copies:=1, Collate:=True
Next
End Sub

Sub Print_Even()
Dim Totalpage As Long
Dim page As Long
Totalpage = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For page = 2 To Totalpage Step 2 'Even
ActiveSheet.PrintOut from:=page, To:=page, _
Copies:=1, Collate:=True
Next
End Sub

Alt-Q to go back to excel
Select the sheet you want to print
Alt-F8 to open the macro dialog
Select Print_Odd
Run

Put you paper back in the printer and
Alt-F8 to open the macro dialog
Print_Even()
Run
 
W

Wendy

Hi Ron: I am still confused- Do I open excel before I hit Alt 11 or not?
When I did I get a blank (grey) page and nothing opens - I do not see a menu
bar??? I apologize - I really want to do this project and I am frustrated.
Thanks for all your help. I am using Microsoft Windows XP, Excel 2003 and
have a HP deskjet printer
 
R

Ron de Bruin

Hello Ron- I got it! Thank you very much for having patience with me

You are welcome
 
Top