macro 2 issues   

Have the following macro prints fine closes print screen ok 
issues
prints a last page with fields used in letter something in code must be 
telling it to print fields. I do notice that every thing for fields is listed 
both in text and query?
 
next after closeing print window will not close word have to click close. 
Got me

Here is my code hopeing am not asking to much
Thanks
Macro recorded 6-Oct-08 by Curtiss A. Greer
'
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:="C:\Parade\Parade.xls", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "DSN=Excel 
Files;DBQ=C:\Parade\Parade.xls;DriverId=790;MaxBufferSize=2048;PageTimeout=5;" _
        , SQLStatement:="SELECT * FROM `MailE$`", SQLStatement1:=""
    ActiveDocument.MailMerge.EditMainDocument
    Selection.TypeParagraph
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Entry"
    Selection.TypeParagraph
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
        "Contact_Person"
    Selection.TypeParagraph
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
        "Address"
    Selection.TypeParagraph
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
        "CityState"
    Selection.TypeParagraph
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:="Zip_"
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText Text:="Dear: "
    ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range, Name:= _
        "Contact_Person"
    ActiveDocument.MailMerge.datasource.QueryString = _
        "SELECT * FROM `MailE$` WHERE ((` Entry` IS NOT NULL ) AND (`Contact 
Person` IS NOT NULL ) AND (` Address` IS NOT NULL ) AND (`City&State` IS NOT 
NULL ) AND (`Zip ` IS NOT NULL ))" _
         & ""
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .Destination = wdSendToPrinter
        .MailAsAttachment = False
        .MailAddressFieldName = ""
        .MailSubject = ""
        .SuppressBlankLines = False
        With .datasource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=True
    End With
    ActiveDocument.PrintOut Background:=False
    ActiveDocument.Close savechanges:=wdDoNotSaveChanges
    If Documents.count >= 0 Then Application.Quit
    Application.Quit
   ' ActiveWindow.Close
   ' CommandBars("Stop Recording").Visible = False
End Sub

date: Mon, 6 Oct 2008 10:13:01 -0700   author:   Curt