Public Function DrintDoc(DocPath As String, NameBase As String, SQLStatements As String, tgl As Boolean)  ' функция печати документа word
'DocPath -путь к документу ворд
'NameBase -передача параметров в OpenDataSource типа: Name:="C:\Baz.mdb"
     'SQLStatementas типа "SQLStatement:="SELECT * FROM [Уведомление_ЧастЛицам]"
    'tgl - просто окрыть либо печатать
Dim WordApp As Word.Application
Dim DocWord As Word.Document
Set WordApp = New Word.Application
WordApp.Visible = False 'неотображать окно worda
Set DocWord = WordApp.Documents.Open(DocPath)
Dim strConnection As String
With DocWord.MailMerge
.MainDocumentType = wdTypeDocument
 strConnection = "DSN=MS Access Databases;"
               .OpenDataSource Name:=NameBase, ReadOnly:=True, _
              LinkToSource:=True, AddToRecentFiles:=False, Connection:=strConnection, _
              SQLStatement:=SQLStatements
.ViewMailMergeFieldCodes = wdToggle 'переключает поля\данные
End With
Select Case tgl
Case False
  DocWord.PrintOut 'печать
DocWord.Close SaveChanges:=0
WordApp.Quit SaveChanges:=0
Case True
WordApp.Visible = True  'просто открыть"
WordApp.Activate
End Select

Set WordApp = Nothing
Set DocWord = Nothing
End Function