F
fmbright
Is it possible to have a macro control the printer zooming after the mail
merge is done?? We are having problems merging labels with our macro. It
now crops the printout to show only 12 of 14 inches on a US fan fold. We can
manually set the zoom to make the print go across the page. But want to
automate our macro to do the zooming.
Any ideas on how to change the zoom once the mail merge is done??
Below is a copy of the script and what we tried!
Thanks!
FMB
-------------------------------------------------------------------
Sub xlabel1()
Documents.Open FileName:="xlabel.doc", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
ActivePrinter = "\\host1\ibmProprinterXL"
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
' print
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=21420, _
PrintZoomPaperHeight:=0
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub
merge is done?? We are having problems merging labels with our macro. It
now crops the printout to show only 12 of 14 inches on a US fan fold. We can
manually set the zoom to make the print go across the page. But want to
automate our macro to do the zooming.
Any ideas on how to change the zoom once the mail merge is done??
Below is a copy of the script and what we tried!
Thanks!
FMB
-------------------------------------------------------------------
Sub xlabel1()
Documents.Open FileName:="xlabel.doc", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
ActivePrinter = "\\host1\ibmProprinterXL"
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=21420, _
PrintZoomPaperHeight:=0
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End Sub