Private Sub print_Click()

Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim intPrint As Integer

    On Error GoTo ErrStartWord
    
    Set wdDoc = GetObject("D:\потолки\договор.dotx")
    Set wdApp = wdDoc.Parent
    wdApp.Visible = True
    With wdApp
        .Selection.GoTo Name:="договор"
        .Selection.TypeText Text:=[№договора]
        .Selection.GoTo Name:="дата"
        .Selection.TypeText Text:=[Дата]
        .Selection.GoTo Name:="покупатель"
        .Selection.TypeText Text:=[Покупатель]
        .Selection.GoTo Name:="адрес"
        .Selection.TypeText Text:=[Адрес]
        .Selection.GoTo Name:="итого"
        .Selection.TypeText Text:=[Итого]
        .Selection.GoTo Name:="аванс"
        .Selection.TypeText Text:=[аванс]
      
        intPrint = MsgBox("Печатать договор?", vbYesNo + vbQuestion)
        If intPrint = vbYes Then
            wdDoc.PrintOut
            Do While .BackgroundPrintingStatus <> 0
                DoEvents
            Loop
        End If

        .ActiveDocument.close wdDoNotSaveChanges
        If .Windows.Count = 0 Then
            .Quit
        End If
        
    End With

    Set wdDoc = Nothing
    Set wdApp = Nothing
    Exit Sub

ErrStartWord:
    MsgBox Err.Description & " " & Err.Number, vbInformation
    Exit Sub

End Sub