Word MailMerge and VB 6 problem. -

   Option Explicit

Public WithEvents objWord As Word.Application

Private Sub objWord_DocumentOpen(ByVal Doc As Word.Document)

    With Doc
        .MailMerge.SuppressBlankLines = True
        .MailMerge.MainDocumentType = wdFormLetters
        .MailMerge.OpenDataSource App.Path & "\Letters\" & g_strUserName & "addlist.txt", ReadOnly:=True
        .MailMerge.ViewMailMergeFieldCodes = False
    End With
    
End Sub

And in module -

        Set objPrintDoc.objWord = CreateObject("Word.Application")
    
        With objPrintDoc.objWord
            .Documents.Open strDocName, , True
            
            .ActiveDocument.MailMerge.Destination = wdSendToPrinter
            
            With .ActiveDocument.MailMerge.DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
            
            .ActiveDocument.MailMerge.Execute Pause:=False
        End With