Duvida sobre relatório em PDF.

Boa tarde a todos.

Venho mais um vez tirar minha dúvida com meus colegas..

bom é o seguinte. eu já criei meu relatório e já consigo imprimi-lo normalmente.
só que surgiu uma dúvida de como faço para converter ou salvar meus relatórios em PDF.
é um tanto chato vc imprimir o relatório Scanear e enviar por e-mail..

Desde já agradeço a todos e tenham uma ótima tarde..

Wagner,

Geralmente utilizo este código:

Código:

Dim strArquivo As String
Dim strLocal As String

'Nomeando o arquivo pdf
strArquivo = "DISTRATO-Nº" & Me![IDCONTRATO] & "-" & Me![CLI_RAZSOCIAL] & ".PDF"
strLocal = CurrentProject.Path & "\enviados\" & strArquivo
 
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "DISTRATO", acViewPreview, , "IDCONTRATO=" & Me!IDCONTRATO, acHidden
 
'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "DISTRATO", acFormatPDF, strLocal
 
'Fecha o relatório e abre o diretório onde gerou o pdf
DoCmd.Close acReport, "DISTRATO"
Shell ("explorer C:\BigSystem\SysInteg\enviados"), vbMaximizedFocus

Veja se consegue adaptar a sua necessidade.

Abraços,

Wagner,

Outra forma simples é você criar um botão no próprio relatório. Aí ao invés de você criar via vba crie uma macro associada ao botão. Na folha de propriedades na opção "exibir quando" defina somente tela para não sair na impressão a imagem do botão.

Veja a imagem...


Abraços,