Duplexing on a macro

[traineeross]

I have recorded some macros to print various documents from various printer
trays and various number of copies.

The only ones which don't work are the ones which require to be printed on
both sides.

Sub Grant()
'
' Grant Macro
' Macro recorded 26/06/2007 by jodywilliams
'
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(2.54)
.BottomMargin = CentimetersToPoints(2.54)
.LeftMargin = CentimetersToPoints(3.17)
.RightMargin = CentimetersToPoints(3.17)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = 264
.OtherPagesTray = 264
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
End With
With Options
.UpdateFieldsAtPrint = False
.UpdateLinksAtPrint = False
.DefaultTray = " Tray 3"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = False
.MapPaperSize = True
End With
With ActiveDocument
.PrintPostScriptOverText = False
.PrintFormsData = False
End With
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=4, Pages:="",
PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False,
PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

I recorded this and on the printing options checked the box to print on both
sides.
Is there a way to guarantee the macro selects print on both sides?

Many thanks for you help,

Jody Williams

 

[Shauna Kelly]

Replied to duplicate question in this newsgroup.

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word

 

[traineeross]

I tried searching for a similar question before i submitted mine, do you have
the title of th equestion or who submitted the question so i can search for
yur previous answer.

Many thanks,

Jody

 

[Suzanne S. Barnhill]

Possibly Shauna was referring to her answer to your "Printing Macro"
question, which referenced
"http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=101. That
article, and those that follow from it, document just about everything you
can do in Word with printers."

 

[traineeross]

She may have been but that was her first answer which came through, and if it
was the case it didn't answer my question.

Many thanks,

Jody.

 

[Suzanne S. Barnhill]

For more help with recorded macros, see
http://word.mvps.org/FAQs/MacrosVBA/ModifyRecordedMacro.htm