Relatório access para PDF...

Estou tentando converter relatório access para PDF:

Private Sub btSalvarPDF_Click()

Dim strArquivo As String
Dim strlocal As String

strArquivo = "Atestado" & ".pdf"
strlocal = CurrentProject.Path & "C:\EnviadosPDF\" & strArquivo
DoCmd.OutputTo acOutputReport, "Rel_RiscodeVidaMemo", acFormatPDF, strlocal

End Sub

esta dando ERRO no acFormatPDF, porque ??!!!...

aguardo - grato...

strlocal = CurrentProject.Path & "C:\EnviadosPDF\" & strArquivo    
mude para:


strLocal = CurrentProject.Path & "\" &  strArquivo 'Salvara no diretório do Programa.



***Se você quer mandar para um diretorio especifico e sempre no mesmo lugar faça assim:

strLocal = "D:\Backup\" & strArquivo   ' Salva no D:\ pasta Backup \ Nomedoarquivo.pdf


***Se você quer quer o usuario defina o nome do arquivo e onde salvar faça assim:

DoCmd.OutputTo acOutputReport, "r1", acFormatPDF, , True

onde: r1 É o nome do Relatoria a ser exportado.

Fabio, deu mesmo erro...

Posta seu BD...

É conveniente saber qual a versão do seu Ms Access.

Se for 2007 ou superior, não use o "acformatpdf", este comando falha inumeras vezes devido a desincronia no Office,
use antes este comando "PDF Format (*.pdf)"

Pode testar que irá salvar junto do banco;

Código:

Dim strArquivo As String
Dim strlocal As String

strArquivo = "Atestado" & ".pdf"
strlocal = CurrentProject.Path & "\" & strArquivo
    DoCmd.OutputTo acOutputReport, "Report1", "PDF Format (*.pdf)", strlocal

Fabio meu access 2003, tem como colocar o saída para pdf

Fabio, incluído BD

Nao deu certo com a Dica do JPaulo???

Eu nao tenho Office 2003, entao provavelmente nao apresentará esse erro aqui... Mas posta caso alguém tenha para fazer o teste...

O Ms Access 2003 não tem essa opção.

Somente com a ajuda do Lebans;

lebans.com/reporttopdf.htm

Boa tarde a todos.

Espelhando no gênio Vinícius de Morais "os outros que me perdoem, mas JPaulo é fundamental".

Essa dica "DoCmd.OutputTo acOutputReport, "Report1", "PDF Format (*.pdf)", strlocal" foi espetacular.

Obrigado, amigo.