[Resolvido]Filtrando para gerar o registro em PDF com erro

Onde estou errando? estou fazendo um filtro para gerar o PDF do registro selecionado.
Fiz essa mesmo linha para impressão e deu certo (logico alterando alguns comandos).
Observação: sou iniciante

Para imprimir funcionando normalmente:

       DoCmd.RefreshRecord
       DoCmd.OpenReport "rlt_Correspondencias", acViewNormal, , "[idCódigoCorresp] = Forms![fml_Corresp]![txtCodigoCorresp]"
       DoCmd.Close acForm, Me.Name, acSaveYes


Com erro:

   Dim strArquivo As String
   Dim strLocal As String

   strArquivo = "Listagem_Agora_" & Format(Now(), "dd_mm_yyyy") & ".pdf"
   strLocal = CurrentProject.Path & "\Enviados\" & strArquivo
   DoCmd.OutputTo acOutputReport, "rlt_Correspondencias_2", acFormatPDF, strLocal, "[idCódigoCorresp] = Forms![fml_Corresp]![txtCodigoCorresp]"
   MsgBox "O Arquivo será aberto...", vbOKOnly + vbExclamation, "Informação"
   Application.FollowHyperlink strLocal

Código:

Dim strArquivo As String
Dim strLocal As String
Dim strRelatorio As String
Dim strCriterio As String

  'Nome para o ficheiro
  strArquivo = "Listagem_Agora_" & Format(Now(), "dd_mm_yyyy") & ".pdf"
  'Local a salvar o PDF
  strLocal = CurrentProject.Path & "\Enviados\" & strArquivo
  'Nome do relatorio
  strRelatorio = "rlt_Correspondencias_2"
  'Filtro para o relatorio
  strCriterio = "idCódigoCorresp = Forms![fml_Corresp]![txtCodigoCorresp]"
 
  'abre o relatorio em modo oculto para filtrar
    DoCmd.OpenReport strRelatorio, acViewPreview, , strCriterio, acHidden
  'exporta em PDF
    DoCmd.OutputTo acOutputReport, strRelatorio, acFormatPDF, strLocal
  'fecha o relatorio sem salvar
    DoCmd.Close acReport, strRelatorio, acSaveNo

Boas Festas