MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    [Resolvido]Executar pdf após gerado

    vailson
    avatar
    vailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015
    • Mensagem nº1

    [Resolvido]Executar pdf após gerado Empty [Resolvido]Executar pdf após gerado

    Mensagem  vailson 27/6/2017, 14:28

    Bom dia amigos,
    Código:
    Private Sub bt_gerarRelatorio_Click()

        Dim strArquivo As String
        Dim strLocal As String
       
        strArquivo = "" & datatraco & " - " & txt_coordenador & " - " & Format(Now, "ddmmyyyy") & Format(Now, "hhnn") & ".pdf"
        strLocal = CurrentProject.Path & "\relatorios\" & strArquivo
        DoCmd.OutputTo acOutputReport, "relatorioservico", acFormatPDF, strLocal
       
    End Sub

    Como faço para executar esse pdf aí após a sua criação?
    Obrigado
    • Ir para o topo
    vailson
    avatar
    vailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015
    • Mensagem nº2

    [Resolvido]Executar pdf após gerado Empty Re: [Resolvido]Executar pdf após gerado

    Mensagem  vailson 27/6/2017, 14:34

    resolvido com um true após
    Código:
    Private Sub bt_gerarRelatorio_Click()

        Dim strArquivo As String
        Dim strLocal As String
       
        strArquivo = "" & datatraco & " - " & txt_coordenador & " - " & Format(Now, "ddmmyyyy") & Format(Now, "hhnn") & ".pdf"
        strLocal = CurrentProject.Path & "\relatorios\" & strArquivo
        DoCmd.OutputTo acOutputReport, "relatorioservico", acFormatPDF, strLocal, true
       
    End Sub
    • Ir para o topo
      Data/hora atual: 22/11/2024, 17:36