Access - Vista previa para imprimnir documento Word desde Access

Private Sub FaltaDocEnt_Click()

stDocName = "F9"

DoCmd.RunMacro stDocName

Dim AppWord As Object, strFinalDoc As String

     strFinalDoc = CurrentProject.Path & "\Carta de falta documentacion para registro como Entidad.rtf"

     Set AppWord = CreateObject("Word.Application")

     AppWord.Visible = False

     Set DocWord = AppWord.Documents.Add(strFinalDoc)

      With DocWord.Content.Find

       .Execute findtext:="{Nombre}", replacewith:=Me.Nombre, Format:=True, Replace:=2

       .Execute findtext:="{Titular}", replacewith:=Me.Titular, Format:=True, Replace:=2

       .Execute findtext:="{Nombre}", replacewith:=Me.Nombre, Format:=True, Replace:=2

       .Execute findtext:="{Docpend}", replacewith:=Me.Docpend, Format:=True, Replace:=2

       .Execute findtext:="{Docpend2}", replacewith:=Me.Docpend2, Format:=True, Replace:=2

       .Execute findtext:="{CP}", replacewith:=Me.CP, Format:=True, Replace:=2

       .Execute findtext:="{Loca}", replacewith:=Me.Loca, Format:=True, Replace:=2

       .Execute findtext:="{Domicilio}", replacewith:=Me.Domicilio, Format:=True, Replace:=2

       .Execute findtext:="{FEC}", replacewith:=Me.FEC, Format:=True, Replace:=2

       .Execute findtext:="{FCIF}", replacewith:=Me.FCIF, Format:=True, Replace:=2

       .Execute findtext:="{FPNIF}", replacewith:=Me.FPNIF, Format:=True, Replace:=2

       .Execute findtext:="{FTA}", replacewith:=Me.FTA, Format:=True, Replace:=2

       .Execute findtext:="{FTRF}", replacewith:=Me.FTRF, Format:=True, Replace:=2

       .Execute findtext:="{FTC}", replacewith:=Me.FTC, Format:=True, Replace:=2

       .Execute findtext:="{FPF}", replacewith:=Me.FPF, Format:=True, Replace:=2

       .Execute findtext:="{FDI}", replacewith:=Me.FDI, Format:=True, Replace:=2

       .Execute findtext:="{FTF}", replacewith:=Me.FTF, Format:=True, Replace:=2

       .Execute findtext:="{FDM}", replacewith:=Me.FDM, Format:=True, Replace:=2

       DoEvents

       If MsgBox("¿Imprimir definitivamente la carta de la Entidad? " & vbCrLf & Me.Nombre, vbExclamation + vbYesNo, "Confirme") = vbYes Then

         AppWord.PrintOut

       End If

       DocWord.Close False

       Set DocWord = Nothing

      End With

   'destruyo la variable

   AppWord.Quit

   Set AppWord = Nothing

End Sub