Thread: Printing
View Single Post
  #6   Report Post  
Ron de Bruin
 
Posts: n/a
Default

Hi Wendy

Yes open Excel first

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




--
Regards Ron de Bruin
http://www.rondebruin.nl



"Wendy" wrote in message ...
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" wrote:

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

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Wendy" wrote in message ...
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" wrote:

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

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Wendy" wrote in message ...
is there a way to print double sided pages