Visualizar em PDF o relatorio

Boa tarde meus amigos.

tenho muito orgulho deste site e dos grandes professores que aqui encontramos. Tenho um código que a partir do formulário salva o relatório em PDF. Ate ai tudo bem (salva numa pasta). O que preciso é visualizar este relatório em PDF assim que clicar no botão SALVAR EM PDF. Os senhores podem me ajudar.

Eis o código que estou usando:

Código:

     Dim strArquivo As String
     Dim strLocal As String
     
     strArquivo = "" & TxtCliente & " - " & "TxtIsOD " & Me.IdOS & ".pdf" 'Pega o nome do cliente no campo do formulario'
     strLocal = CurrentProject.Path & "\ArquivosEtelnor\" & strArquivo
     DoCmd.OutputTo acOutputReport, "rlt_OrdemServico_1Visita", acFormatPDF, strLocal
     
     
      MsgBox "Ordem de Servi?o arquivada em PDF", vbInformation, "Aviso"

Obrigadão

Val

Olá Valdevino Silva,

Adicione a instrução abaixo no final do seu codigo e teste:

Código:

Application.FollowHyperlink strLocal

Abraço

Valeu, meu amigo. Deu tudo certo. Tenho muito a agradecer a você. Este site é o melhor exemplo de divisão de conhecimento, ou melhor, distribuição de conhecimento, pois como sou inexperiente, posso muito pouco contribuir em conhecimento de VBA. Mais uma vez obrigadão


Valdevino

Oi meu amigo Teixeira

Fiquei tao entusiasmado com a sua ajuda e nem percebi que ainda há um detalhe:
O codigo que voce me passou funcionou, entretanto ele só retorna ao primeiro registro da tabela, ou seja, quando clico no botao ele salva o registro em PDF e ao abrir na tele sempre vem o primeiro registro da tabela. Como posso proceder

antecipadamente meus agradecimentos

Valdevino

Olá Valdevino,

Não deveria acontecer o que descreve.
Depende do evento que está a utilizar o codigo.

Se grava o registo correto tambem deveria abrir, teste assim:

Código:


Dim strArquivo As String
Dim strLocal As String
   
    strArquivo = "" & TxtCliente & " - " & "TxtIsOD " & Me.IdOS & ".pdf" 'Pega o nome do cliente no campo do formulario'
    strLocal = CurrentProject.Path & "\ArquivosEtelnor\" & strArquivo
    DoCmd.OutputTo acOutputReport, "rlt_OrdemServico_1Visita", acFormatPDF, strLocal
   
    DoEvents
    Application.FollowHyperlink strLocal

    MsgBox "Ordem de Servi?o arquivada em PDF", vbInformation, "Aviso"


Abraço

Ola, meu amigo Teixeira

quando clico no botão ele grava em pdf e exibe na tela sempre o primeiro registro da tabela, quando deveria exibir o registro atual.


Dim strArquivo As String
Dim strLocal As String

strArquivo = "" & TxtCliente & " - " & "TxtIsOD " & Me.IdOS & ".pdf" 'Pega o nome do cliente no campo do formulario'
strLocal = CurrentProject.Path & "\ArquivosEtelnor\" & strArquivo
DoCmd.OutputTo acOutputReport, "rlt_OrdemServico_1Visita", acFormatPDF, strLocal

DoEvents
Application.FollowHyperlink strLocal

MsgBox "Ordem de Serviço arquivada em PDF", vbInformation, "Aviso"

Olá, e o PDF está a criar correto ou o primeiro registo?

Se está a fazer errado no PDF verifique o filtro do relatório.

Abraço

Olá!

utilize a técnica de abrir o relatório, devidamente filtrado, antes do OutPutTo. Veja neste meu artigo (copie e cole o link abaixo no seu navegador)

usandoaccess.com.br/tutoriais/gerar-relatorios-em-pdf-e-enviar-por-email.asp?id=1#inicio

Sucesso!