Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ErgoProxi

Imagem em PDF

Recommended Posts

Olá, Alguem sab como inserir imagem em PDF...

 

Texto é tranquilo... e imagem... Alguem sab... Ja rodei os 4 cantos da WEB mas só acho como converter imagem em pdf ou vice-versa...

 

VLW

Compartilhar este post


Link para o post
Compartilhar em outros sites

Thank pela ajuda, mas não é isso... Não fui claro eu acho...

VB.Net inserir imagem em tempo de execução...

 

 

 Dim datas As Date
       datas = Today
    'cria um novo PDF'
       Dim report As Report = New Report(New PdfFormatter)

       'define a fonte usada'
       Dim fd As FontDef = New FontDef(report, FontDef.StandardFont.TimesRoman)
       Dim fp As FontProp = New FontPropMM(fd, 3)
       Dim fpl As FontProp = New FontPropMM(fd, 2)

       'cria uma nova página'
       Dim page As Page = New Page(report)

       'insere uma linha de texto'
       'e a Imagem?'
       page.AddCB_MM(20, 10, New RepString(fp, "Empresa"))
       page.AddCB_MM(170, 10, New RepString(fpl, "Data de Emissão:"))
       page.AddCB_MM(190, 10, New RepString(fpl, datas))
       page.AddCB_MM(20, 12, New RepString(fpl, "www.site.com.br"))

       'visualiza o PDF'
       RT.ViewPDF(report, "OlaMundo.pdf")

Compartilhar este post


Link para o post
Compartilhar em outros sites

Vê se é isso...

 

 

http://www.dotnetspark.com/kb/1364-add-image-to-pdf-document-using-itextsharp.aspx

 

 

 

 

Thank pela ajuda, mas não é isso... Não fui claro eu acho...

VB.Net inserir imagem em tempo de execução...

 

 

 Dim datas As Date
       datas = Today
    'cria um novo PDF'
       Dim report As Report = New Report(New PdfFormatter)

       'define a fonte usada'
       Dim fd As FontDef = New FontDef(report, FontDef.StandardFont.TimesRoman)
       Dim fp As FontProp = New FontPropMM(fd, 3)
       Dim fpl As FontProp = New FontPropMM(fd, 2)

       'cria uma nova página'
       Dim page As Page = New Page(report)

       'insere uma linha de texto'
       'e a Imagem?'
       page.AddCB_MM(20, 10, New RepString(fp, "Empresa"))
       page.AddCB_MM(170, 10, New RepString(fpl, "Data de Emissão:"))
       page.AddCB_MM(190, 10, New RepString(fpl, datas))
       page.AddCB_MM(20, 12, New RepString(fpl, "www.site.com.br"))

       'visualiza o PDF'
       RT.ViewPDF(report, "OlaMundo.pdf")

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.