[Resolvido]Não esta salvando o atual

Colegas o meu  sistema tem opção de saída para salva relatório, mas não consigo salvar o atual, nem abrindo ele para depois salvar não consigo , já criei rescrevi o código , mas não funciona.

Código:

 strArquivo = Me.Id & ".pdf"
    srtLocal = CurrentProject.Path & srtArquivo
    DoCmd.OutputTo acOutputReport, "Relatorio_produto", acFormatDDF, strLocal

estou colocando aqui mas não salva com o registro atual, posso fazer outro código que funcione , mas não posso perder essas opções de saída.

Viu  seu artigo e mudei o modo do relatório  , saído do jeito esperado;

Código:

 strArquivo = Me.Id & ".pdf"
    srtLocal = CurrentProject.Path & srtArquivo
 
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "[size=12]Relatorio_produto[/size]", acViewReport, , "Id=" & Me!Id
 
   DoCmd.OutputTo acOutputReport, "[size=12]Relatorio_produto[/size]", acFormatDDF, strLocal
DoCmd.Close acReport, "[size=12]Relatorio_produto[/size]"
End Sub


Obg
Vlw