[Resolvido]Imprimir word

Como visualizar/exportar para PDF o documento, antes de imprimir?
Obrigado.

Private Sub Comando221_Click()
Dim AppWord As Object, strFinalDoc As String
strFinalDoc = CurrentProject.Path & "\ContratoCWA.rtf"

Set AppWord = CreateObject("Word.Application")
AppWord.Visible = False
Set DocWord = AppWord.Documents.Add(strFinalDoc)

With DocWord.Content.Find
.Execute findtext:="{DATA}", replacewith:=Data, Format:=True, Replace:=2
.Execute findtext:="{NRCONTRATO}", replacewith:=Me.NrContrato, Format:=True, Replace:=2
.Execute findtext:="{EMPREENDIMENTO}", replacewith:=Me.Empreendimento, Format:=True, Replace:=2

.Execute findtext:="{VENDEDORA}", replacewith:=Me.Vendedora, Format:=True, Replace:=2
.Execute findtext:="{CNPJ}", replacewith:=Me.cnpj, Format:=True, Replace:=2
.Execute findtext:="{ENDEREÇO}", replacewith:=Me.Endereço, Format:=True, Replace:=2
.Execute findtext:="{CIDADE}", replacewith:=Me.Cidade, Format:=True, Replace:=2
.Execute findtext:="{ESTADO}", replacewith:=Me.Estado, Format:=True, Replace:=2

EscribeWord (Me.Id)
DoEvents
If MsgBox("Imprimir Contrato " & vbCrLf & Me.NrContrato & "-" & Me.NomeC1, vbExclamation + vbYesNo, "Confirme") = vbYes Then
AppWord.PrintOut
End If
DocWord.Close False
Set DocWord = Nothing
End With

AppWord.Quit
Set AppWord = Nothing
End Sub

Para visualizar, basta trocar o False por True:

AppWord.Visible = True


Caso esteja utilizando Office 2007 ou 2010, para exportar pode utilizar algo assim:

Código:

    AppWord.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Pasta\Subpasta\Nome do arquivo.pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

Troquei False por True.
Não visualiza. Pede para salvar e já imprime sem minha autorização.

É porque tem os comandos para imprimir e para fechar o documento e o Word. Você precisa adaptar o exemplo à sua necessidade.

Depois de algumas adequações, deu certo.Obriogado

Ótimo! Grato pelo retorno.