[Resolvido]PDF e impressão dúvidas

Boa tarde a todos

No exemplo abaixo o botão onde visualizamos o relatório tá ok.
O de imprimir dá erro.
E o de exportar pdf, exporta todo o relatório e não apenas o visualizado.
Como poderia ver antes de imprimir e imprimir depois?
Escolher ou criar uma pasta para escolher essa pasta e depois exportar pdf, sendo apenas o escolhido.

Obrigado

https://www.dropbox.com/s/7ziywmryvnkhcov/Teste%203.accdb?dl=0

Exportar relatorio filtrando dados(o que esta sendo visualizado.)
http://www.usandoaccess.com.br/tutoriais/gerar-relatorios-em-pdf-e-enviar-por-email.asp?id=1

Veja esse Material que lhe ajudara.
Nao estou com PC, impossivel ver seu Aplicativo e testar...

Boa noite.
Tenho esse exemplo. Contudo, apesar da importancia do avelino para o nosso access, eu, dentro de minha ignorancia na programacao vba, nao evidenciei elos entre.
Se alguém puder ajudar...

Meu amigo, esse material do Avelino tem tudo a Ver com sua duvida, Exportar para PDF. Veja como fica adaptado para seu Aplicativo, Copiado e Colado do Link a cima, adaptado apenas para filtrar pelo Codigo do Advogado e nome do Relatorio.


Mude o Comando do Seu Botão que exporta para PDF e coloque este:

Código:


Private Sub ComandoPDF_Click()
Dim strArquivo As String
Dim strLocal As String
 
strArquivo = "Cadastro de Advogado" & ".pdf"
strLocal = CurrentProject.Path & "\" & strArquivo
 
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "1", acViewPreview, , "CodigoAdvogado=" & Me.CodigoAdvogado, acHidden
 
'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "1", acFormatPDF, strLocal
 
'Fecha o relatório
DoCmd.Close acReport, "1"
   
End Sub



Esse comando pegarar o seu relatorio 1, abrira filtrando apenas pelo advogado que esta na tela, e salvara na pasta do seu Aplicativo.

Entendo.
Mas como criaria e escolheria o local onde salvar?

Ja o do Botão imprimir vc estava no caminho certo, apenas se esqueceu de algumas coisinha la...

Mude o comando do botao imprimir para:

Código:

Private Sub ComandoImprimir_Click()
    DoCmd.OpenReport "1", acViewPreview, , "[Codigoadvogado] = " & Me.CodigoAdvogado & ""
End Sub


Veja onde estava errando: ... "[Codigoadvogado] = " & Me.CodigoAdvogado & ""

Ok.
Chegando em casa mais tarde vejo e respondo.
Obrigado.
Feliz dia de hj.
Abs

Para Perguntar onde salvar o Relatorio mude para:

Código:

Private Sub ComandoPDF_Click()
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "1", acViewPreview, , "CodigoAdvogado=" & Me.CodigoAdvogado, acHidden
 
'Gera arquivo pdf do relatório previamente aberto e filtrado e PERGUNTA ONDE SALVAR.
DoCmd.OutputTo acOutputReport, "1", acFormatPDF, , True
 
'Fecha o relatório
DoCmd.Close acReport, "1"
   
End Sub

Perfeito.
Muito obrigado Fábio.
Boa semana.
Abs