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