Notifications
Clear all

MESCLAR PDF'S COM VBA

3 Posts
2 Usuários
0 Reactions
1,046 Visualizações
(@luisangy)
Posts: 21
Eminent Member
Topic starter
 

Bom dia Srs,

Estou com um probleminha e gostaria da ajuda de vocês.

Todos os dias tenho que mesclar pdf's de diretórios diferentes, na empresa que trabalho o unico software disponivel para isso é o BULLZIP PDF PRINTER, cujo processo de mesclagem demora. Tentei gravar uma macro via vba que fizesse isso, mas não me mostrou nada. Há alguma forma de mesclar pdf via vba, utilizando esse software?

 
Postado : 17/04/2017 7:19 am
Basole
(@basole)
Posts: 487
Reputable Member
 

Luis, minha sugestão é voce baixar e usar o Pdftk, o recurso mesclar pdf esta habilitado na versao free e voce pode usar manualmente, ou automatizar o processo pelo vba.

Veja um exemplo abaixo com linha de comando shell
Exemplos de uso: https://www.pdflabs.com/docs/pdftk-cli-examples/

Sub Mesclando_3_PDF()
Dim P1 As String, P2 As String, P3 As String, Mesc As String
Dim strPathFile As Variant, strPathPdfTk As Variant

    strPathFile = "C:temp"
    strPathPdfTk = "C:Program Files (x86)PDFtkbin"  "Ajuste o local do pdftk.exe (linha de comando)
    
    P1 = strPathFile & "P1.pdf"
    P2 = strPathFile & "P2.pdf"
    P3 = strPathFile & "P3.pdf"
    Mesc = strPathFile & "Mesclado.pdf"
    
    Shell strPathPdfTk & "pdftk.exe A=" & P1 & " B=" & P2 & " C=" & P3 & " output " & Mesc
    
    MsgBox "Mesclagem de PDF efetuada!", 0, ""

End Sub

Baixe aqui:
https://www.pdflabs.com/tools/pdftk-the-pdf-toolkit/

Click em se a resposta foi util!

 
Postado : 17/04/2017 7:49 pm
(@luisangy)
Posts: 21
Eminent Member
Topic starter
 

Obrigado Basole!

 
Postado : 18/04/2017 4:52 am