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

You are welcome

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



"Wendy" wrote in message ...
Hello Ron- I got it! Thank you very much for having patience with me

"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