[Resolvido]Modulo Basic

Bom dia a todos
Será possível que deem uma (pequena) ajuda.
Quando mando imorimir do Access 2003 para o Word com o seguinte Módulo.


Private Sub CmdImprime_Click()
Dim AppWord As Object, strFinalDoc As String
strFinalDoc = CurrentProject.Path & "\Contrato.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:="{ContratoID}", replacewith:=Me.ContratoID, Format:=True, Replace:=2


EscribeWord (Me.ContratoID)
DoEvents
If MsgBox("Imprimir definitivamente a carta de contrato Nº" & vbCrLf & Me.ContratoID, vbExclamation + vbYesNo, "Confirme") = vbYes Then
AppWord.PrintOut
End If
DocWord.Close False
Set DocWord = Nothing
End With

AppWord.Quit
Set AppWord = Nothing

End Sub

Imprime diretamente sem ver o texto, como posso visiunar antes da impessão?
Obrigado
Pina

Você pode mudar o False da linha AppWord.Visible = False para True. Isso fará com que a janela do documento seja aberta na tela. E para não imprimir de imediato, retire a linha AppWord.PrintOut.

Bom dia criquio
Muito obrigado pela ajuda, deu certo.
Pina

Grato pelo retorno, O fórum agradece.