Нужно вывести определенный документ на печать в VB

Sub nnnn()
    A = "BBBBBBBBBBB"
    For Each obj In ThisDocument.Bookmarks
       If obj.Name Like "ПеременнаяА" Then obj.Range.Text = A
    Next
End Sub

Private Sub Command1_Click()
        Set WrdApp = CreateObject("Word.Application")
        Set wDoc = WrdApp.Documents.Open("C:\tmp\1.dotm")
        A = "BBBBBBBBBBB"
        For Each obj In wDoc.Bookmarks
            If obj.Name Like "ПеременнаяА" Then
               obj.Range.Text = A
            End If
        Next
        WrdApp.PrintOut FileName:="", Range:=0, Item:= _
        0, Copies:=1, Pages:="", PageType:=0, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
        wDoc.Close False
        WrdApp.quit
End Sub

wDoc.Bookmarks("ПеременнаяА").Range.Text = A

Private Sub smen_Click()
        Dim WrdApp As Object, wDoc As Object, obj As Object, B As String
        Set WrdApp = CreateObject("Word.Application")
        Set wDoc = WrdApp.Documents.Open(App.Path & "\chek.dotm")
        
        B = "123"
        
        wDoc.Bookmarks("ПеременнаяB").Range.Text = B
 
        WrdApp.PrintOut FileName:="", Range:=0, Item:= _
        0, Copies:=1, Pages:="", PageType:=0, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
        wDoc.Close False
        WrdApp.quit
End Sub