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

[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

"Shauna Kelly" wrote:

Replied to duplicate question in this newsgroup.

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


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

[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."

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

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

"Shauna Kelly" wrote:

Replied to duplicate question in this newsgroup.

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


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

[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" wrote:

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."

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

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

"Shauna Kelly" wrote:

Replied to duplicate question in this newsgroup.

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


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

[Suzanne S. Barnhill]

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

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

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

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."

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so
all may benefit.

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

"Shauna Kelly" wrote:

Replied to duplicate question in this newsgroup.

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


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