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


3 participantes

    Relatório em PDF

    avatar
    juliocst
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    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 : 5120
    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
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    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 : 20
    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.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 07:05