Salvar Relatorio aberto em PDF com o nome e data

Boa tarde

Estou com um problema é preciso da ajuda de vcs.

Preciso Salvar em PDF um relatório já aberto
Adicionei um bototão "PDF"

   Dim strArquivo As String
   Dim strLocal As String
   strArquivo = "" & titulo & "-" & Data_Automática & ".pdf"
   strLocal = CurrentProject.Path & "\Relatório\" & strArquivo
   DoCmd.OutputTo acOutputReport, "PlanoAcaoUnico_TT", acFormatPDF, strLocal

Deu tudo errado
  preciso que salve em uma pasta especifica, com o nome que esta no campo "titulo" do relatório  e data que foi salvo.

Boa tarde
Usei essa comando
 DoCmd.OutputTo acOutputReport, "PlanoAcaoUnico_TT", acFormatPDF
Funcionou parcialmente.


Esta abrindo uma tela para escolher o local para salvar o arquivo em PDF, ate ai tudo bem, o problema que no campo para editar o nome do arquivo aparece o nome raiz do relatório. Gostaria que aparece-se qualquer nome menos o nome raiz .



E na tela para salvar o arquivo se cancelarmos da o erro 2501 ação OutputTo foi cancelada