[Resolvido]Problema ao transformar relatório em pdf.

Olá amigos!
Estou usando os módulos dynaPDF e strStorage para gerar pdf.
Ele cria o arquivo, o problema é que ele está gerando apenas a metade do relatório, é como se o relatório estivesse em modo retrato e ele exportasse em modo paisagem, o arquivo em PDF fica pela metade.
Este problema começou acontecer depois que comecei a utilizar o access 2010.

Alguém sabe como resolver este problema?

Amigo muito obrigado por sua ajuda.
Eu estava usando esta opção de exportação do access 2010 o problema é estou usando o mergePDFDocuments para combinar várias arquivos em pdf.
Porém quando o arquivo pdf é criado pelo access o módulo srtstorage da erro e não consegue unir os arquivos.

Estou num belo dilema.

Conhece alguma forma de mesclar documentos pdf gerados pelo access ?

Abs.

No forum há varios exemplos de criação de pdf e um de unir pdf vasta procurar

Pessoal depois muita pesquisa, consegui resolver este problema.

Inserir a referência do adobe no projeto.

Private Sub Command0_Click()
'Relies on the Adobe Acrobat 6.0 Type Library
Dim objCAcroPDDocDestination As Acrobat.CAcroPDDoc
Dim objCAcroPDDocSource As Acrobat.CAcroPDDoc



'Initialize the objects
Set objCAcroPDDocDestination = CreateObject("AcroExch.PDDoc")
Set objCAcroPDDocSource = CreateObject("AcroExch.PDDoc")

'Open Destination, all other documents will be added to this and saved with
'a new filename
objCAcroPDDocDestination.Open ("D:\Test Agenti\2740221011108.pdf")

'Do your loop here to open subsequent documents that you want to add
'Do
'Open the source document that will be added to the destination
objCAcroPDDocSource.Open ("D:\Test Agenti\1431103011100-Baba-Cornel.pdf")
If objCAcroPDDocDestination.InsertPages(objCAcroPDDocDestination.GetNumPages - 1, objCAcroPDDocSource, 0, objCAcroPDDocSource.GetNumPages, 0) Then
MsgBox "Documents Merged!"
Else
'0 problem
End If
objCAcroPDDocSource.Close
'loop

objCAcroPDDocDestination.Save 1, "D:\Destination.pdf"
objCAcroPDDocDestination.Close
Set objCAcroPDDocSource = Nothing
Set objCAcroPDDocDestination = Nothing

End Sub

Muito obrigado pela atenção de todos.

não é necessário qualquer programa para gerar ou juntar pdf vê:

http://maximoaccess.forumeiros.com/t8788-resolvidoajuda-com-pdf

http://maximoaccess.forumeiros.com/t15099-resolvidoagrupar-mesclar-varios-pdf-s-em-um?highlight=tenho+v%C3%A1rios+pdf#114566

Muitissimo obrigado pessoal!

Problema resolvido.