MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Visualizar em PDF o relatorio

    avatar
    Valdevino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 22/05/2011

    Visualizar em PDF o relatorio Empty Visualizar em PDF o relatorio

    Mensagem  Valdevino em 14/11/2018, 14:52

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6294
    Registrado : 15/03/2013

    Visualizar em PDF o relatorio Empty Re: Visualizar em PDF o relatorio

    Mensagem  ahteixeira em 14/11/2018, 15:17

    Olá Valdevino Silva,

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

    Código:
    Application.FollowHyperlink strLocal

    Abraço
    avatar
    Valdevino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 22/05/2011

    Visualizar em PDF o relatorio Empty Re: Visualizar em PDF o relatorio

    Mensagem  Valdevino em 14/11/2018, 18:31

    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
    avatar
    Valdevino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 22/05/2011

    Visualizar em PDF o relatorio Empty Re: Visualizar em PDF o relatorio

    Mensagem  Valdevino em 14/11/2018, 19:43

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6294
    Registrado : 15/03/2013

    Visualizar em PDF o relatorio Empty Re: Visualizar em PDF o relatorio

    Mensagem  ahteixeira em 14/11/2018, 20:37

    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
    avatar
    Valdevino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 22/05/2011

    Visualizar em PDF o relatorio Empty Visualizar em PDF o relatorio

    Mensagem  Valdevino em 15/11/2018, 15:42

    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"
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6294
    Registrado : 15/03/2013

    Visualizar em PDF o relatorio Empty Re: Visualizar em PDF o relatorio

    Mensagem  ahteixeira em 15/11/2018, 23:01

    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
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3515
    Registrado : 04/04/2010

    Visualizar em PDF o relatorio Empty Re: Visualizar em PDF o relatorio

    Mensagem  Avelino Sampaio em 16/11/2018, 08:20

    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!

    Conteúdo patrocinado

    Visualizar em PDF o relatorio Empty Re: Visualizar em PDF o relatorio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/8/2019, 08:18