[Resolvido]Salvar Relatório em PDF

Bom dia

Estou conseguindo salvar meu relatório desejado em PDF.
Acontece que ele somente salva metade da pa´gina deste relatório.
Alguem pode me indicar o que estou fazendo de errado?

Abraços
MArcelo

Ola seja bem vindo ao forum.

Diga-nos qual a versão do Access está a utilizar e diga-nos tambem como é que salvou em PDF.


Pode utilizar este comando dentro do evento VBA de um botão num formulario.

Private Sub SeuBotao_Click()
DoCmd.OutputTo acOutputReport, "SeuRelatorio", acFormatPDF, "C:\SeuRelatorio.pdf", False
End Sub

Obrigado pelo rápido retorno

Meu access é o 2010.
Estou utilizando o seguinte comando:
blRet = ConvertReportToPDF("Relatório Conferência", vbNullString, "C:\Meus arquivos\Access\" & "Relatório Controle Portaria - " & Format(Now(), "ddmmyy") & ".PDF", False, False)

Abraço

Marcelo

Grande JPaulo

Com o comando que enviastes, funcionou muito bem.
Obrigado pela dica.

Abraço

Marcelo

Opte sempre pelo simples.

Obrigado pelo retorno o forum agradece.

Obrigado

JPaulo, td bem...

Eu tinha o mesmo problema e com seu código consegui resolver.

Entretanto preciso escolher entre dois relatórios diferentes e dar um nome ao PDF antes que ele seja criado.

Existe uma maneira?

Atenciosamente

JPaulo Obrigado pela ajuda amigo! você disponibilizou um código referente a duvida em PDF e solucionou meu problema. caso alguém precise esta aqui


Dim blRet As Boolean
' Call our convert function
' Please note the last param signals whether to perform
' font embedding or not. I have turned font embedding ON for this example.
blRet = ConvertReportToPDF("carnê", vbNullString, _
"D:\NAESOFT\PDFs\cap\" & "Carnê do Cliente - " & nomcli.Column(1) & " " & Format(Now(), "ddmmyy") & ".PDF", False, True)

Estou com problema que preciso ajuda, tenho um sistema em Access 2007 é preciso que converte o relatório Access em PDF.
Sem de momento agradeço, a compreensão.

José Garneira
918752424

Algo parecido com isso abaixo

Código:

Private Sub bt_GPdf_Click()
Dim strArquivo As String
Dim strLocal As String

' nome do arquivo a ser salvo      chave prima
strArquivo = "Pedido  " & Me!NossoPedido & " - " & Me!Cliente & "-" & Me.Forneoculta & ".pdf" 'Nome do arquivo a ser salvo baseado em campos do formulário. (me!nosso pedido / Me!cliente/ me.Forneoculta )

strLocal = CurrentProject.Path & "\Pedidos\" & strArquivo ' criar essa pasta ( Pedidos )onde está o banco de dados

'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "RptPedido", acViewPreview, , "codped=" & Me!CodPed, acHidden
'                   nome do relatorio                     chave prima       chave prima

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

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

End If
End Sub

Devo primeiramente agradecer pelo exemplo e deu certo. Mas o que quero mesmo é antes de guardar o arquivo em pdf deve pre-visualizar e depois escolher a opção guardar ou imprimir.
Tens um codigo para essa dica?

att,

Jose Garneira

Agradecido JPaulo

Boa noite alguem pode me ajudar porfavor, na minha aplicação quando vou visualizar relatorios eles aparecem somente a metade

Pode ser vista por aqui
https://drive.google.com/file/d/1a90Vr-fxBu51dyyh2J67Ift-3pYECMjf/view?usp=sharing

Desde já Agradeço