[Resolvido]Local do Salvamento - Relatório PDF

Olá.

Possuo o código, para salvar meus relatórios em PDF:

Código:

DoCmd.OutputTo acOutputReport, "Contato", acFormatPDF, "C:\Contato.pdf", False

Eu gostaria de escolher o local onde devo salvar os arquivos. Como faria isso?

Obrigada.

Marta

Olá,

Tente assim:

Código:

Dim fso As Object

Set fso = Application.FileDialog(4)
fso.AllowMultiSelect = False

If fso.Show Then
    DoCmd.OutputTo acOutputReport, "Contato", acFormatPDF, f.SelectedItems(1) & "\Contato.pdf", False
End If

Boa tarde Claudio.

Acorre o erro anexo:

Obrigada.

Boa tarde Marta,

Desculpe, tem um erro no código.
O correto é:

DoCmd.OutputTo acOutputReport, "Contato", acFormatPDF, fso.SelectedItems(1) & "\Contato.pdf", False

Boa noite Claudio.
Aproveitei a dúvida da Marta e testei seu códio no meu relatório
Funcionou perfeitamente, excelente o código, parabéns!

Queria saber se tem com exportar somente uma determinada pagina do relatório:?:

Desde já agradeço

Olá,

Não creio que possa escolher a página a ser exportada, com o comando DoCmd.OutputTo.

Mais uma vez obrigada Claudinho!

Não entrei esses dias pois meu PC estava com problema, novamente obrigada.

Resolvido!

Marta.

De nada Marta, disponha!