Printing

[Guest]

is there a way to print double sided pages

 

[Ron de Bruin]

Hi Wendy

This is a printer setting
But if your printer not have this option you can do it with code
http://www.rondebruin.nl/print.htm#odd

 

[Guest]

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.

 

[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

 

[Guest]

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

 

[Ron de Bruin]

Hi Wendy

Yes open Excel first

see
http://www.mcgimpsey.com/excel/modules.html

 

[Guest]

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

 

[Ron de Bruin]

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

You are welcome