[Resolvido] Relatório não salva automático se eu definir o local

Olá. Gostaria de saber porque quando defino o local de armazenamento do relatório em .pdf, não funciona.
Abre a telinha que Agora saindo etcc, mas o local onde defini fica vazio.

Já tentei vários códigos diferentes, nenhum funciona.

O que está atualmente, segue logo abaixo,

Código:

On Error GoTo Err_Comando19_Click

Dim strArquivo As String
Dim strLocal As String

strArquivo = "Relação em Caixa.pdf"
strLocal = "C:\Enviados\" & strArquivo

DoCmd.OutputTo acOutputReport, "Relatório Consulta", ".pdf", strLocal


Exit_Comando19_Click:
    Exit Sub
    
Err_Comando19_Click:
    Resume Exit_Comando19_Click
  

Valeu! No aguardo de alguém que possa solucionar isso...

Se eu retirar o "strLocal", o código funciona, abre a telinha pra selecionar o local. Eu escolho o nome salvo e pronto...

devill, bom dia!

Só uma pergunta: Você criou o diretório ("C:\Enviados\")???


Abraços,

Olá Uilson,

Exatamente o que precisa, deu certo! valeu...
Achei estranho, pois tinha colocado somente c:\ e não tinha salvado também...mas está agora ok!


sabe me dizer se tem como eu colocar uma pasta aleatória (variável) no diretório ??!


Exemplo.: DoCmd.OutputTo acOutputReport, "Relatório Consulta", ".pdf", strLocal & "NOME DA VARIÁVEL"

Se eu fizer desse jeito acima,
Ele salva a variável no nome do .pdf, eu quero que essa variável aponte para um diretório.
Tenho vários clientes, em cada um que eu entrar e mandar salvar, vai salvar na pasta do cliente, tem como fazer isso ?

valeu mais uma vez.

devill, boa noite!

Não há necessidade de criar diretório de acordo com o cliente. Veja se consegue adaptar o código abaixo:

Código:

Private Sub btPDF_Click()
On Error Resume Next

Dim strArquivo As String
Dim strLocal As String

'Define o nome do arquivo
strArquivo = "Viagem - " & Me![IDVE] & " - " & Me![DESTINO] & ".pdf"
strLocal = CurrentProject.Path & "\enviados\" & strArquivo
 
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "ListaPassageiros", acViewPreview, , "IDVE=" & Me!IDVE, acHidden
 
'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "ListaPassageiros", acFormatPDF, strLocal
 
'Fecha o relatório
DoCmd.Close acReport, "ListaPassageiros"

End Sub

Abraços,