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

    Relatório em PDF

    avatar
    juliocst
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 02/01/2012

    Relatório em PDF Empty Relatório em PDF

    Mensagem  juliocst 26/8/2017, 13:24

    Bom dia,
    Tenho um relatório que é gerado em PDF porém possui vários cálculos internos que resultam de várias entradas e saídas e saldos.
    Quando visualizo o Relatório ele está ok, porém quando gero em PDF ele apresenta alguns campos com erros, parece que ele gera antes do relatório realizar a execução.

    Existe alguma forma de atrasar a geração do PDF, como um timer, ou mesmo transformar a visualização em PDF?

    Desde já agradeço.
    Segue a linha de código

    On Error GoTo ERR_Tratamento

    Dim strArquivo As String
    Dim strLocal As String
    'Stop
    strLocal = CurrentProject.Path & "\Empenhos Entregues - " & Format(Now, "ddmmyyyy") & ".pdf\" & strArquivo

    DoCmd.OutputTo acOutputReport, "EmpenhosEntregues", acFormatPDF, strLocal
    SAIR:
    Exit Sub

    ERR_Tratamento:
    If Err.Number = 2501 Then
    Else
    MsgBox Err.Number & " - " & Err.Description, vbCritical, ""
    End If
    Resume SAIR
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4719
    Registrado : 20/04/2011

    Relatório em PDF Empty Re: Relatório em PDF

    Mensagem  Silvio 28/8/2017, 20:05

    Boa tarde..

    Experimente salvar os dados antes de imprimir.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    toyebom
    toyebom
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1118
    Registrado : 18/07/2012

    Relatório em PDF Empty Relatório em PDF

    Mensagem  toyebom 28/8/2017, 20:30

    Tenta colocar pré visualização do relatório antes de criar o pdf e depois de gerar mandas fechar

    Mais ou menos isto

    Private Sub btn_gerar_relatorio_Click()
    DoCmd.OpenReport "Agendamento do Treinamento", acViewPreview, , "[Chaveprimária] = " & [Chaveprimária]
    DoCmd.Maximize
    MsgBox("Confirma Salvar em PDF?", vbYesNo + vbInformation, "Atenção") = vbYes Then
    DoCmd.OutputTo acOutputReport, "Relatório de Agendamento - " & Format(Now, "dd.mm.yyyy") & ".pdf", , , , , acOutputReport

    MsgBox("Arquivo Salvo com Sucesso!", vbInformation, "Salvando em PDF")
    DoCmd.Close


    vê aqui:

    https://www.maximoaccess.com/t27487-erro-ao-gerar-pdf-e-imprimir


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    juliocst
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 02/01/2012

    Relatório em PDF Empty Boa noite

    Mensagem  juliocst 29/8/2017, 00:32

    Obrigado pela ajuda, mas ainda não está funcionando.

    toyebom quando uso seu código na MsgBox("Confirma Salvar em PDF?", vbYesNo + vbInformation, "Atenção") = vbYes Then visualizo o relatório ao fundo mas os campos que resultam de cálculos ainda estão em branco, ou seja, realmente a crizção do PDF está sendo mais rápido que a geração do relatório.

    Não sei se existe uma forma de colocar um timer dentro do comando para que ele execute de forma mais lenta.

    Mas desde já agradeço a ajuda.

      Data/hora atual: 13/4/2021, 15:25