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

    [Resolvido]Salvar relatório em PDF com data e hora

    avatar
    Pedro Paulo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 13/09/2011

    [Resolvido]Salvar relatório em PDF com data e hora Empty [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  Pedro Paulo em 5/2/2014, 16:54

    Boa tarde!

    Tenho um botão no meu Form que abre uma visualização, imprime e salva meu relatório numa pasta específica. Minha dúvida é a seguinte: como incluir data e hora no documento salvo, já que se eu pedir para imprimir outro relatório referente ao mesmo aluno esse será substituído pelo atual.

    Código que estou usando:

    Private Sub Comando145_Click()
    Dim intTotalCopias
       'salva o registo atual
       DoCmd.RunCommand acCmdSaveRecord
       'pergunta quantas copias quer
       intTotalCopias = InputBox("Quantas folhas deseja imprimir?", "Impressão", 1)
       'se não digitou nada, aborta
       If intTotalCopias = "" Then Exit Sub
       'se digitou, inicia a visualização e impressão
       DoCmd.OpenReport "Advertência", acViewPreview, "", "[Matrícula]= " & Me.Matrícula & "", acNormal
       DoCmd.PrintOut acPrintAll, , , , intTotalCopias, 0
       DoCmd.OutputTo acOutputReport, "Advertência", acFormatPDF, "C:\Advertência.pdf", False
    End Sub


    Não sei se fui bem claro na minha pergunta.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  JPaulo em 5/2/2014, 17:17

    Faça o teste por favor;

    DoCmd.OutputTo acOutputReport, "Advertência", acFormatPDF, "C:\Advertência_" & Format(Now(), "ddmmyyyyhhnnss") & ".pdf", False


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Instruções SQL como utilizar...
    avatar
    Pedro Paulo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 13/09/2011

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  Pedro Paulo em 5/2/2014, 17:33

    JPaulo,

    Esta dando o seguinte erro na linha do código que você me passou:

    "Erro em tempo de execução '2501': A ação Output foi cancelada.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  JPaulo em 5/2/2014, 17:43

    Aqui funfou em pleno.

    Ficou a ssim na drive C:\

    Advertência_05022014174459.pdf


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Instruções SQL como utilizar...
    avatar
    Pedro Paulo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 13/09/2011

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  Pedro Paulo em 5/2/2014, 17:49

    Será que pode ser por causa da minha versão do Access, estou usando o 2013.
    avatar
    Pedro Paulo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 13/09/2011

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  Pedro Paulo em 6/2/2014, 00:20

    JPaulo,

    Consegui fazer o código funcionar, cheguei em casa e fui analisar tinha um pequeno erro, mas agora esta resolvido e bombando graças a você.

    Mas uma vez agradeço e que continue sendo essa pessoa prestativa, como pude perceber pelos vários tópicos que visitei.
    avatar
    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 19/05/2017

    [Resolvido]Salvar relatório em PDF com data e hora Empty Relatório PDF

    Mensagem  Dougtha91 em 5/12/2017, 13:53

    Pedro,
    poderia compartilhar seu código pois o meu esta dando o mesmo erro.
    avatar
    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/02/2013

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  gutobrotas em 12/12/2017, 14:14

    Vou colocar no meu sisteminha, acho que o erro é aqui

    DoCmd.OutputTo acOutputReport, "Advertência", acFormatPDF, "C:\Advertência_" & Format(Now(), "ddmmyyyyhhnnss") & ".pdf", False
    ---------------------------------------------------------------------------------------------------------------------------------------------------------^

    Deve ser mm (minutos) ao inves de nn em ddmmyyyyhhnnss...
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  JPaulo em 12/12/2017, 14:18

    Negativo, minutos é nn mesmo.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Instruções SQL como utilizar...
    avatar
    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/02/2013

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  gutobrotas em 12/12/2017, 14:42

    Voce tem razao Paulo, mas nao funcionou de nenhum jeito....
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  JPaulo em 12/12/2017, 14:48

    Qual o erro que apresenta ?

    Anexe aqui parte do seu banco por favor.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Instruções SQL como utilizar...
    avatar
    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/02/2013

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  gutobrotas em 12/12/2017, 15:07



    apenas criei um botao para abrir/salvar, somente com a sua linha
    dá esse erro
    "Erro em tempo de execução '2501': A ação Output foi cancelada.
    avatar
    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/02/2013

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  gutobrotas em 12/12/2017, 15:07

    em tempo: o relatorio abre normalmente se eu pedir para abri-lo
    avatar
    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/02/2013

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  gutobrotas em 12/12/2017, 16:03

    Assim dá certo:

    DoCmd.OutputTo acOutputReport, "dinheironotas", acFormatPDF, "teste.pdf", False



    Assim nao dá:
    DoCmd.OutputTo acOutputReport, "dinheironotas", acFormatPDF, "c:\teste.pdf", False

    O que pode ser Paulo?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  JPaulo em 12/12/2017, 16:09

    teste assim;

    Código:
    Dim strCaminho$
    strCaminho="C:\Advertência_" & Format(Now(), "ddmmyyyyhhnnss")
    DoCmd.OutputTo acOutputReport, "Advertência", acFormatPDF, strCaminho & ".pdf", False


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Instruções SQL como utilizar...
    avatar
    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/02/2013

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  gutobrotas em 12/12/2017, 16:23

    Nada....

    (tenho um form de bkp que achei aqui no forum e ele usa Format(Date, "ddmmyy") & "-" & Format(Time, "hhmmss") tambem tentei
    e não funcionou)
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  JPaulo em 12/12/2017, 16:35

    Você tem permissões de escrita na drive C: ?

    Tente criar uma pasta na drive c: e referenciar-se a ela.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Instruções SQL como utilizar...
    avatar
    gutobrotas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 16/02/2013

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  gutobrotas em 12/12/2017, 16:38

    Opa opa opa!!!!

    Agora sim!!!

    Obrigado Paulo! Demais!!!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Salvar relatório em PDF com data e hora Empty Re: [Resolvido]Salvar relatório em PDF com data e hora

    Mensagem  JPaulo em 12/12/2017, 17:08

    Obrigado pelo retorno o forum agradece.

    Não esqueça de nos ajudar... se puder claro.
    https://www.maximoaccess.com/t32025-neste-natal-ajude-nos


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Salvar relatório em PDF com data e hora Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 31/5/2020, 02:29