URGENTE - CONVERTER JPGE PARA PDF
Preciso converter varias imagem para um único arquivo pdf. Como Posso resolver isso?
Alguém pode me ajudar. Sabe alguma solução?
grato
Alguém pode me ajudar. Sabe alguma solução?
grato
a solução mais prática que vejo é:
*instalar um impressora virtual (particularmente utilizo a Foxit Reader PDf Printer);
*no seu programa use o printer.paintpicture para imprimir as imagens, que deverão ir para impressora virtual.
feito isso é só ver o resultado.
*instalar um impressora virtual (particularmente utilizo a Foxit Reader PDf Printer);
*no seu programa use o printer.paintpicture para imprimir as imagens, que deverão ir para impressora virtual.
feito isso é só ver o resultado.
Se não for incomodo como ficaria o código para imprimir uma imagem? Teria como criar varias num arquivo somente?
assim você poderia criar varias páginas em um unico arquivo pdf.
minha pergunta é isto será uma constante, ou seja este programa sempre irá fazer isso, ficar convertendo as imagens.
minha pergunta é isto será uma constante, ou seja este programa sempre irá fazer isso, ficar convertendo as imagens.
MARCELO-TREZE, Vai sim, sempre vai ter que fazer isso, criar o arquivo para ser enviado para o site do tj.
Private Sub Command2_Click()
Set PDF = CreateObject([Ô]PDFCreatorPilot.PDFDocument4[Ô])
PDF.PageResolution = 600 [ô] set any DPI here
img = PDF.AddImageFromFile([Ô]D:\TESTE.JPG[Ô])
wtm = PDF.AddWatermark
PDF.SwitchToWatermark wtm
[ô]PDF.SetColorFill 0, 1, 0, 0
[ô]PDF.ShowTextAt 330, 530, [Ô]DFGDFGDFGDFWatermark text[Ô]
PDF.SwitchToCurrentPage
[ô]composing 1st page
[ô]PDF.ShowTextAt 50, 50, [Ô]Page1 with watermark.[Ô]
PDF.ShowImage img, 0, 0
w = PDF.GetImageWidth(img)
h = PDF.GetImageHeight(img)
r = PDF.GetImageResolution(img)
coeff = PDF.PageResolution / r
PDF.DrawImage ind, 0, 0, w * coeff, h * coeff, 0
PDF.AttachWatermark 0, wtm
[ô]composing 2nd page
PDF.NewPage
PDF.AttachWatermark 1, wtm
w = PDF.GetImageWidth(img)
h = PDF.GetImageHeight(img)
r = PDF.GetImageResolution(img)
coeff = PDF.PageResolution / r
PDF.DrawImage ind, 0, 0, w * coeff, h * coeff, 0
PDF.ShowImage img, 0, 0
[ô]PDF.ShowTextAt 50, 50, [Ô]Page2 with watermark.[Ô]
[ô]composing 3rd page
PDF.NewPage
PDF.AttachWatermark 2, wtm
w = PDF.GetImageWidth(img)
h = PDF.GetImageHeight(img)
r = PDF.GetImageResolution(img)
coeff = PDF.PageResolution / r
PDF.DrawImage ind, 0, 0, w * coeff, h * coeff, 0
PDF.ShowImage img, 0, 0
[ô]PDF.ShowTextAt 50, 50, [Ô]Page3 with watermark.[Ô]
PDF.SaveToFile [Ô]C:\ARQUIVO.pdf[Ô], True
End Sub
O Único problema que no pdf aparece uma marca de versão demo, ai não sei se vai sempre aparecer isso ou se expirar a dll.
Dar uma olha ai. Se puder, para eu ter uma segunda opinião. Grato
[ô]dll
PDFCreatorPilot.dll
Set PDF = CreateObject([Ô]PDFCreatorPilot.PDFDocument4[Ô])
PDF.PageResolution = 600 [ô] set any DPI here
img = PDF.AddImageFromFile([Ô]D:\TESTE.JPG[Ô])
wtm = PDF.AddWatermark
PDF.SwitchToWatermark wtm
[ô]PDF.SetColorFill 0, 1, 0, 0
[ô]PDF.ShowTextAt 330, 530, [Ô]DFGDFGDFGDFWatermark text[Ô]
PDF.SwitchToCurrentPage
[ô]composing 1st page
[ô]PDF.ShowTextAt 50, 50, [Ô]Page1 with watermark.[Ô]
PDF.ShowImage img, 0, 0
w = PDF.GetImageWidth(img)
h = PDF.GetImageHeight(img)
r = PDF.GetImageResolution(img)
coeff = PDF.PageResolution / r
PDF.DrawImage ind, 0, 0, w * coeff, h * coeff, 0
PDF.AttachWatermark 0, wtm
[ô]composing 2nd page
PDF.NewPage
PDF.AttachWatermark 1, wtm
w = PDF.GetImageWidth(img)
h = PDF.GetImageHeight(img)
r = PDF.GetImageResolution(img)
coeff = PDF.PageResolution / r
PDF.DrawImage ind, 0, 0, w * coeff, h * coeff, 0
PDF.ShowImage img, 0, 0
[ô]PDF.ShowTextAt 50, 50, [Ô]Page2 with watermark.[Ô]
[ô]composing 3rd page
PDF.NewPage
PDF.AttachWatermark 2, wtm
w = PDF.GetImageWidth(img)
h = PDF.GetImageHeight(img)
r = PDF.GetImageResolution(img)
coeff = PDF.PageResolution / r
PDF.DrawImage ind, 0, 0, w * coeff, h * coeff, 0
PDF.ShowImage img, 0, 0
[ô]PDF.ShowTextAt 50, 50, [Ô]Page3 with watermark.[Ô]
PDF.SaveToFile [Ô]C:\ARQUIVO.pdf[Ô], True
End Sub
O Único problema que no pdf aparece uma marca de versão demo, ai não sei se vai sempre aparecer isso ou se expirar a dll.
Dar uma olha ai. Se puder, para eu ter uma segunda opinião. Grato
[ô]dll
PDFCreatorPilot.dll
Olá pessoal conseguir resolver meu problema, então vou citar para quem precisar desse processo.
Necessário instalar o pdf creator 4.1
Crie uma pasta c: este coloque quantas imagem quiser (.jpg) e segue em anexo o código do fonte
Obs: Está configurado para resolução de scanner de 75 a 100 dpi
Necessário instalar o pdf creator 4.1
Crie uma pasta c: este coloque quantas imagem quiser (.jpg) e segue em anexo o código do fonte
Obs: Está configurado para resolução de scanner de 75 a 100 dpi
Tópico encerrado , respostas não são mais permitidas