Gerando PDF cortado

Gero por VBA um relatório em PDF pelo código

blRet = ConvertReportToPDF("MovimentoCons1", vbNullString, _
"MovimentoCaixa" & ".pdf", False, False, 150, "", "", 0, 0, 0)

Uso atualmente o Access versão 2013.

Na versão anterior do Access o relatório era gerado normalmente.

A partir dessa versão só gera a 1ª página.

O que pode ser ?

Boa noite, a partir do 2007 você pode usar o comando OutputTo

Código:


On Error GoTo Erro

      Dim nDoc As String
       nDoc = "Nome do Documento.pdf"

       DoCmd.OutputTo acOutputReport, "Nome do Relatório", acFormatPDF, nDoc, True, , , acExportQualityPrint

Erro:
   If err.Number = 2501 Then
     MsgBox "Este relatório já está aberto!", vbInformation, "Atenção"
     err.Clear
     Exit Sub
   End if


Jungli,

Obrgado pela atenção

Quando uso esse comando abre um,a janela para indicar onde salvar o PDF

Tem como evitar isso, ja que sempre salvo em uma pasta específica ?

O que são os parâmetros nDoc, True, , , no comandp ?

Boa noite,

nDoc é uma variável, nesta variável você pode colocar o caminho e o nome do arquivo.

exemplo:
nDoc = "C:\pasta\sub pasta\Nome do Documento.pdf"

assim o arquivo é gravado diretamente na pasta informada.

resolvido ! Muito obrigado !

Boa,

fico feliz em ajudar

só faltou clicar no Resolvido lá embaixo