Printing Double-Sided

[AccessNoob]

Hi,

I am trying to do double sided printing in excel with multiple worksheets
(>20). In order to print double-sided, I need to (within Excel) select File
-> Print -> Properties and select "Flip on long side" in order to adjust one
worksheet. Excel does not change the printing preference for all desired
worksheet if i select them all at once (it jsut change whichever worksheet is
active). Is there a quicker way to do it (even VBA will be good for me) so
that i can choose the preference once and it will apply to all worksheets?

I know that i can (within window) go to Printer/Fax, right click on the
printer and select Property, and select "Flip on long side". However, this
only works for new Excel files or existing Excel files that have not been
modified for the printing preferences. However, I currently have tons of
Excel files (with modified, incorrect printing preferences) that I would like
to print. Can anyone offer some soln so that i do not need to go through each
worksheet in all these files? Much Appraciated!

Drawde

However,

 

[FSt1]

hi
Printing double sided is a printer option not an excel option. all Excel
does is send the data. for your printer, on the tool bar click....
file>print preview. click the set up button. on the set up wizard, click
options.
this should display properties of your default printer. if your printer can
print double side, you can set this here. otherwise excel cannot do what your
printer is incapable of doing.

sorry
Regards
FSt1

 

[yshridhar]

Try the following code.
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

Is that what you are looking for?
With regards
Sridhar