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

    Salvar Relatorio aberto em PDF com o nome e data

    Compartilhe

    israeltidsa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 05/12/2014

    Salvar Relatorio aberto em PDF com o nome e data

    Mensagem  israeltidsa em 24/5/2018, 20:48

    Boa tarde

    Estou com um problema é preciso da ajuda de vcs.

    Preciso Salvar em PDF um relatório já aberto
    Adicionei um bototão "PDF"

       Dim strArquivo As String
       Dim strLocal As String
       strArquivo = "" & titulo & "-" & Data_Automática & ".pdf"
       strLocal = CurrentProject.Path & "\Relatório\" & strArquivo
       DoCmd.OutputTo acOutputReport, "PlanoAcaoUnico_TT", acFormatPDF, strLocal

    Deu tudo errado
      preciso que salve em uma pasta especifica, com o nome que esta no campo "titulo" do relatório  e data que foi salvo.

    israeltidsa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 05/12/2014

    Erro 2501 ação OutputTo foi cancelada

    Mensagem  israeltidsa em 25/5/2018, 19:54

    Boa tarde
    Usei essa comando
     DoCmd.OutputTo acOutputReport, "PlanoAcaoUnico_TT", acFormatPDF
    Funcionou parcialmente.


    Esta abrindo uma tela para escolher o local para salvar o arquivo em PDF, ate ai tudo bem, o problema que no campo para editar o nome do arquivo aparece o nome raiz do relatório. Gostaria que aparece-se qualquer nome menos o nome raiz .



    E na tela para salvar o arquivo se cancelarmos da o erro 2501 ação OutputTo foi cancelada

      Data/hora atual: 20/11/2018, 18:20