MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    krsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 04/01/2013

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

    Mensagem  krsantos em Ter 11 Mar 2014, 12:11

    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?
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3390
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Ter 11 Mar 2014, 13:03

    A partir da versão 2007 sp2 o Access já vem com PDF. Veja este meu artigo se ajuda:

    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso!

    krsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 04/01/2013

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

    Mensagem  krsantos em Ter 11 Mar 2014, 13:48

    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.


    .................................................................................
    Krsantos
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3390
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio em Ter 11 Mar 2014, 18:00

    Bom, se precisar unir vários relatórios em um único documento, pode experimentar usar um único relatório com vários sub relatórios. Em cada sub relatório vc vincula a um relatório. Depois então gere o PDF.

    Aguardamos

    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 868
    Registrado : 18/07/2012

    Problema ao transformar relatório em pdf.

    Mensagem  toyebom em Ter 11 Mar 2014, 18:05

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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    krsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 04/01/2013

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

    Mensagem  krsantos em Ter 11 Mar 2014, 19:33

    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.


    .................................................................................
    Krsantos
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 868
    Registrado : 18/07/2012

    Problema ao transformar relatório em pdf.

    Mensagem  toyebom em Ter 11 Mar 2014, 21:11

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

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    krsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 04/01/2013

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

    Mensagem  krsantos em Sab 15 Mar 2014, 23:24

    Muitissimo obrigado pessoal!

    Problema resolvido.


    .................................................................................
    Krsantos

      Data/hora atual: Qui 21 Set 2017, 20:26