[Resolvido]Criar relatório em PDF e guardar com Nome, data, e hora

Bom dia
Com este comando num BOTÃO cria-se um documento em PDF do relatório "Vendas" com o nome "DOC".
Mas se voltar a clikar no mesmo BOTÃO o PDF antigo é substituido pelo último Criado.

On Error Resume Next
Dim stDocName As String
If MsgBox("Confirma a Criação do Relatório Vendas em P. D. F. ? ", vbYesNo + vbQuestion, "Confirmação") = vbYes Then
Dim blRet As Boolean
Dim Caminho As String
Caminho = CurrentProject.path & ""
blRet = ConvertReportToPDF("Vendas", vbNullString, Caminho & "Doc" & ".PDF", False)
Else
DoCmd.CancelEvent
End If

Como criar o mesmo PDF mas com o nome DOC + Data e Hora. Ex."DOC 20-12-2010 12:02:19", assim ao voltar a clikar no comado o Documento antigo não seria substituido.
Obrigado

Bom Dia ;

Teste:

blRet = ConvertReportToPDF("Vendas", vbNullString, Caminho & "Doc" & Date & "_" & Format(Now(), "hh.mm.ss") & ".PDF", False)

Nenhum ficheiro suporta os dois pontos na descrição, daí ter de se formatar para ponto nas horas.

Bom dia JPaulo

Funfa 100%.
Só mais um repto.
Ao clikar no comando, não dá para criar e guardar o PDF e impedir que o Programa Adobe Reader Abra.
Obrigado

Claro que sim, acrescente mais um False à frente do código, assim;

blRet = ConvertReportToPDF("Vendas", vbNullString, Caminho & "Doc" & Date & "_" & Format(Now(), "hh.mm.ss") & ".PDF", False, False)

Obrigado J. Paulo
e


BOM NATAL PARA TODOS