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

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.

Faça o teste por favor;

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

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.

Aqui funfou em pleno.

Ficou a ssim na drive C:\

Advertência_05022014174459.pdf

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

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.

Pedro,
poderia compartilhar seu código pois o meu esta dando o mesmo erro.

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...

Negativo, minutos é nn mesmo.

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

Qual o erro que apresenta ?

Anexe aqui parte do seu banco por favor.

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.

em tempo: o relatorio abre normalmente se eu pedir para abri-lo

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?

teste assim;

Código:

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


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)

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

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

Opa opa opa!!!!

Agora sim!!!

Obrigado Paulo! Demais!!!

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