[Resolvido]Antes de salvar relatório em PDF, permitir renomear o arquivo.

Boa tarde,

Estou utilizando o código a seguir para salvar o meu relatório em determinada pasta, porém ao clicar no botão, onde tem o código, ele salva direto na pasta com o nome que está, e o que saber, é se tem como adaptar esse código para que ele abra a pasta, e me permita renomear o nome do arquivo antes de salvar. Eu consigo fazer isso, se utilizar as macros, porém, quero saber se há um jeito de se fazer isso via código, não dando, eu utilizarei a macro mesmo.

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

Obrigado
Ismael

Provavelmente seu relatório deve ser filtrado para poder ver.

Então...

Private Sub bt_imprimir_Click()
On Error GoTo fim
'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "SeuRelatorio", acFormatPDF, strLocal

'Fecha o relatório
DoCmd.Close acReport, "SeuRelatorio"

fim:
If Err.Number = 2501 Then
MsgBox "Ação cancelada pelo usuário", vbInformation, Me.Caption
End If
End Sub

É só adaptar as tuas necessidades.

Bons estudos.

Silvio,

Estou testando agora, só uma dúvida, no seu código, ele abre uma pasta, e me permite renomear o arquivo, como de fato eu queria, mas se eu quiser definir a pasta para abrir, é possível?

No caso eu quero que abra esta pasta: "C:\SeuRelatorio.pdf", e atualmente abre

Tentei assim:

Não deu.

DoCmd.OutputTo acOutputReport, "Relatorio_Fat_Clientes", acFormatPDF, "C:\SeuRelatorio.pdf", strLocal


Obrigado!

Algo parecido com isso.


'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "NomeSeuRelatório", acViewPreview, , "ChavePrimaria=" & Me!ChavePrimaria, acHidden

'definindo o local a ser salvo, fixando o mesmo
DoCmd.OutputTo acOutputReport, "NomeSeuRelatório", acFormatPDF, "C:\Seu Relatorio.PDF\" & ".pdf"

'fechando o relatório
DoCmd.Close acReport, "NomeSeuRelatório"

Silvio,

Ainda não consegui fazer funcionar. O que posso estar fazendo errado?

Segue arquivo

https://www.dropbox.com/s/yx6zmaoqbdv9n5t/Controle%20Bruno.accdb?dl=0


Frm_Filtros

Botão: Gerar Relatório 3

Obrigado!

DoCmd.OpenReport "Relatorio_Fat_Clientes", acViewPreview, , "Cliente= " & "'Me!Cliente '", acHidden

Silvio,

Não deu certo, no entanto, vou fechar o tópico.

Bom dia pessoal apenas para participar deste tópico

Boa noite da uma olhadinha nesta vídeo aula do Giberlanio Rocha

https://youtu.be/a_D-T9cLUTU



Para salvar em uma pasta específica

https://youtu.be/-sL6IXZWcEc