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]relatorio nao gera em PDF

    maguim
    maguim
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    Registrado : 15/05/2013

    [Resolvido]relatorio nao gera em PDF Empty [Resolvido]relatorio nao gera em PDF

    Mensagem  maguim 7/5/2019, 14:47

    bom dia amigos tudo bem?


    estou com impasse no momento que nao esta gerando pdf, estou com access 2016

    estava lendo mais coisa respeito aplicaquei varios teste, porem sem exito.

    esta dando erro 2501

    ação outpuTO foi cancelada.

    segue o codigo abaixo:
    Código:

    DoCmd.OpenReport "ContratoComercial", acViewPreview, , , acWindowNormal 'este codido precisa ficar aqui por alguma razão, pois buga o botão estou tentado descobrir

    Dim strArquivo As String
    Dim strLocal As String
    Dim path As String



    path = DLookup("Razão_Social", "TABELA_CONTRATO", "CODPASTA=" & Forms!IMPRIMIR_CONTRATO!CODPASTA)

    ' nome do arquivo a ser salvo      chave prima
    strArquivo = "Contrato_" & path & ".pdf"

    ' criar essa pasta onde está o banco de dados
    strLocal = CurrentProject.path & "\enviados\" & strArquivo
     
    'Abre o relatório devidamente filtrado e oculto
    DoCmd.OpenReport "ContratoComercial", acViewPreview, , , acHidden
     

    'Gera arquivo pdf do relatório previamente aberto e filtrado.
    DoCmd.OutputTo acOutputReport, "ContratoComercial", acFormatPDF, strLocal
     
    'Fecha o relatório
    DoCmd.Close acReport, "ContratoComercial"


    Me.Visible = False

    se alguem puder dar uma luz

    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    maguim
    maguim
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    Registrado : 15/05/2013

    [Resolvido]relatorio nao gera em PDF Empty Re: [Resolvido]relatorio nao gera em PDF

    Mensagem  maguim 7/5/2019, 17:54

    alguem pra dar um luz?


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    maguim
    maguim
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    Registrado : 15/05/2013

    [Resolvido]relatorio nao gera em PDF Empty Re: [Resolvido]relatorio nao gera em PDF

    Mensagem  maguim 8/5/2019, 15:51

    bom gente finalmente consegui resolver


    o problema estava na pasta destino que nao estava sendo encontrato por isso o erro,

    Código:
    ' criar essa pasta onde está o banco de dados
    strLocal = CurrentProject.path & "\enviados\" & strArquivo



    troquei o nome e coloquei pasta nova e resolveu


    resolvido abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised

      Data/hora atual: 29/7/2021, 12:20