[Resolvido]gerar relatórios em pdf

boa noite pessoal estou usando este código para salvar relatório em pdf ,em uma pasta específica

código:

Código:

dim strarquivo as string
dim strlocal as string

strarquivo =>"Estoque "&".pdf"
strlocal =currentproject.path &"\enviados\"& strarquivo
docmd.outputto acoutputreport,"rl_estoque" ,acformatpdf,strlocal

ele não esta salvando onde eu pretendo meu bd esta na seguinte pasta


D:\
no caminho seguinte é onde eu salvo meus backup

D:\backup systema de empresa

e dentro desta pasta acima eu criei outra pasta chamada enviado


D:\backup systema de empresa\enviado

gostaria de gerar o pdf enviando para esta pasta enviado

muito obrigado pessoal

Olá Marcelo,

Teste assim:

Código:

Dim strarquivo As String
Dim strlocal As String

strarquivo = "Estoque" & ".pdf"
'strlocal = CurrentProject.Path & "\enviados\" & strarquivo
strlocal = "D:\backup systema de empresa\enviado\" & strarquivo
DoCmd.OutputTo acOutputReport, "rl_estoque", acFormatPDF, strlocal

Repare que ao atribuir o nome do ficheiro à variavel strarquivo você tinha =>
Verifique se a sub-pasta é enviado ou enviados.

Abraço

Ola;

Código:

Private Sub SeuBotão_Click()
Dim strarquivo As String
Dim strlocal As String

strarquivo = "Estoque" & ".pdf"
strlocal = CurrentProject.Path & "\enviado\" & strarquivo
    DoCmd.OutputTo acOutputReport, "rl_estoque", acFormatPDF, strlocal, False
End Sub

Teixeira: Same time...

Olá JPaulo, pela mesma causa.
Aguardamos retorno do colega Marcelo.
Abraço

obrigado a vocês assim que chegar em casa testo e retorno

abraço

boa noite obrigado Jpaulo e ahteixeira os dois código deram certo mais eu usei o do
ahteixeira ,porque meu bd estava em uma pasta e poder gerar em outro diretório diferente e em pasta diferente


obrigado a todos vocês Deus abençoe vocês

Olá Marcelo,
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço a todos