[Resolvido]Imprimir e salvar automaticamente em pdf em uma pasta

Boa noite.

Queria saber como faço para imprimir um relatório e salvar automaticamente em uma pasta especifica no formato PDF?

Tenho salvado em formato PDF manualmente dentro de um pasta onde fica o BD.

Obrigado.

Olá, seja bem vindo ao fórum!

Qual é a versão do Access? Se for 2007 em diante, pesquise por PDF na ajuda do VBA. Se for anterior à 2007, precisará utilizar uma impressora virtual que salve em PDF ou uma biblioteca externa.

DoCmd.OutputTo acOutputReport, "NomeRelatório", acFormatPDF, "C:\NomePasta\NomeArquivo.pdf"

ops, desculpe criquio

Sem problemas

Obrigado pelas saudações!

Testei um um codigo só que não sei onde estou errando.

Ainda tenho muito a aprender em access então por favor me ajudem!

abaixo codigo testado:

DoCmd.OutputTo acOutputReport, "relatorio_ordem_servico", acFormatPDF, "C:\ProgramaGestao\Comprovante de ordem de serviço em PDF/" & me.codigo & ".pdf"

o que eu devo colocar em " & me.codigo & ".pdf"?

Você ainda não falou qual é a versão do Access.

Bom dia.

Utilizo a versão 2010.

Código seria o campo da chave primária. No lugar de Código, você coloca o nome desse campo.

bom dia.

abaixo codigo que estou usando:

If IsNull(digite_numero_recibo) Then
MsgBox "INFORME O NÚMERO DO PEDIDO", vbInformation, "NÚMERO DO PEDIDO"
digite_numero_recibo.SetFocus
Exit Sub

Else


Select Case Quadro8

Case 1
DoCmd.OpenReport "relatorio_orcamento_a", acViewPreview

Case 2
DoCmd.OpenReport "rel_garantia", acViewPreview

Case 3
DoCmd.OpenReport "relatorio_ordem_servico", acViewPreview

Case 4
DoCmd.OpenReport "relatorio_orcamento_avaliacao_tecnica", acViewPreview

End Select

'DoCmd.OutputTo acOutputReport, "relatorio_ordem_servico", acFormatPDF, "C:\ProgramaGestao\Comprovante de ordem de serviço em PDF\relatorio_ordem_servico.pdf"
DoCmd.OutputTo acOutputReport, "relatorio_ordem_servico", acFormatPDF, "C:\ProgramaGestao\Comprovante de ordem de serviço em PDF/" & Me.os_c_id & ".pdf"

End If

End Sub

quando seleciono o relatorio desejado abre o VBA dizendo que deu erro de compilação.

E qual é a mensagem do erro? Destaca qual linha do VBA? Todos os detalhes são importantes. Vá deslizando o ponteiro do mouse devagar sobre a linha de erro e verifique se os dados que são exibidos contem alguma discordância.

DoCmd.OutputTo acOutputReport, "relatorio_ordem_servico", acFormatPDF, "C:\ProgramaGestao\Comprovante de ordem de serviço em PDF/" & Me.os_c_id & ".pdf"

Observe na linha acima que está utilizando barra normal (/) no lugar da barra invertida, que é o correto.

Obrigado pela ajuda de vocês!

De nada.

Resolvido?

Bom dia.

Quero agradecer a todos do forum!

Como resolvi meu problema:

Criei um botão no formulário e coloquei o código sugerido pelos colegas! Funcionou perfeitamente!

Meu erro: Eu uso um formulário para escolher o relatório e digito em campo o numero do relatório que desejo imprimir pelo sistema ( select end).
Colocar o código sugerido pelos colegas da erro. Sou bem limito em access...estou amando aprender!

Só que até então percebi que estava salvando todos os relatórios automaticamente. Eu queria salvar um por um com o nome/código do arquivo em pasta.

solução:

utilizei o código do nosso colega Avelino Sampaio.

abaixo solução proposta por ele:


Dim strArquivo As String
Dim strLocal As String

strArquivo = "Recibo" & Me!recibo_id & ".pdf"
strLocal = CurrentProject.Path & "\recibos\" & strArquivo

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

'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "rep_recibo_teste", acFormatPDF, strLocal

'Fecha o relatório
DoCmd.Close acForm, "frm_recibo"
DoCmd.OpenReport "rep_recibo_teste", acViewPreview

Então, salva dentro da pasta em PDF com o nome/código e posso visualizar para imprimir.

Obrigado a todos!