none
¿Como puedo implementar una imagen ( LOGO.PNG ) En un iTextSharp.text ?

    Pregunta

  • Hola,

    Como puedo implementar un logo.png ?

    este es mi código 

            Dim strRuta As String = String.Empty
            Dim sw As New StringWriter()
            Dim htw As New HtmlTextWriter(sw)
            Dim sr As New StringReader(sw.ToString())
            Dim pdf As New Document(PageSize.A4)
            Dim htmlParse As New HTMLWorker(pdf)
            Dim pdfTable As New PdfPTable(4)
    
    
            strRuta = "C:\Users\fgonzalez\Desktop\aPrueba.pdf"
    
            If System.IO.File.Exists(strRuta) Then
                System.IO.File.Delete(strRuta)
            End If
    
            PdfWriter.GetInstance(pdf, New FileStream(strRuta, FileMode.Create))
    
            pdfTable.DefaultCell.Border = 0
            pdfTable.TotalWidth = 520
            pdfTable.LockedWidth = True
            pdfTable.SpacingBefore = 20.0F
            pdfTable.SpacingAfter = 20.0F
    
            Dim PdfTitulo As New PdfPCell(New Phrase("Gestión De Vehiculos", New Font(Font.BOLD, 20.0F, Font.BOLD, Color.BLACK)))
            PdfTitulo.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
            PdfTitulo.Colspan = 4
            PdfTitulo.Border = 0
            PdfTitulo.FixedHeight = 60
            pdfTable.AddCell(PdfTitulo)
    
            Dim Subtitulo As New PdfPCell(New Phrase("MUÑOZ C. Y ASOCIADOS S.A. DE C.V.", New Font(Font.BOLD, 12.0F)))
            Subtitulo.Colspan = 3
            Subtitulo.Border = 0
            Subtitulo.FixedHeight = 90
            pdfTable.AddCell(Subtitulo)
    
            Dim Titulo As String = String.Format("León Guanajuato " + DateTime.Now.ToString("dd/MM/yyyy"))
            Dim pdfCeldaFecha As New PdfPCell(New Phrase(Titulo, New Font(Font.BOLD, 12.0F, Font.BOLD, Color.BLACK)))
            pdfCeldaFecha.HorizontalAlignment = iTextSharp.text.Element.ALIGN_RIGHT
            pdfCeldaFecha.Border = 0
            pdfTable.AddCell(pdfCeldaFecha)
    
            Dim Modelo As String = String.Format("Modelo Del Vehiculo: " + txtModelo_pdf.Text)
            Dim pdfCeldaModelo As New PdfPCell(New Phrase(Modelo, New Font(Font.BOLD, 9.0F)))
            pdfCeldaModelo.Colspan = 3
            pdfCeldaModelo.Border = 0
            pdfTable.AddCell(pdfCeldaModelo)
            Dim pdfCeldaRespuestaModelo As New PdfPCell(New Phrase(" ", New Font(Font.BOLD, 9.0F, Font.BOLD, Color.BLACK)))
            pdfCeldaRespuestaModelo.Border = 0
            pdfTable.AddCell(pdfCeldaRespuestaModelo)
    
            Dim Matricula As String = String.Format("Matricula: " + txtMatricula_pdf.Text)
            Dim pdfCeldaMatricula As New PdfPCell(New Phrase(Matricula, New Font(Font.BOLD, 9.0F)))
            pdfCeldaMatricula.Colspan = 3
            pdfCeldaMatricula.Border = 0
            pdfTable.AddCell(pdfCeldaMatricula)
            Dim pdfCeldaRespuestamatricula As New PdfPCell(New Phrase(" ", New Font(Font.BOLD, 9.0F, Font.BOLD, Color.BLACK)))
            pdfCeldaRespuestamatricula.Border = 0
            pdfTable.AddCell(pdfCeldaRespuestamatricula)
    
            Dim Responsable As String = String.Format("Responsable: " + txtResponsable_pdf.Text)
            Dim pdfCeldaResponsable As New PdfPCell(New Phrase(Responsable, New Font(Font.BOLD, 9.0F)))
            pdfCeldaResponsable.Colspan = 3
            pdfCeldaResponsable.Border = 0
            pdfTable.AddCell(pdfCeldaResponsable)
            Dim pdfCeldaRespuestaResponsable As New PdfPCell(New Phrase(" ", New Font(Font.BOLD, 9.0F, Font.BOLD, Color.BLACK)))
            pdfCeldaRespuestaResponsable.Border = 0
            pdfTable.AddCell(pdfCeldaRespuestaResponsable)
    
            Dim Motivo As String = String.Format("Motivo: " + txtMotivo_pdf.Text)
            Dim pdfCeldaMotivo As New PdfPCell(New Phrase(Motivo, New Font(Font.BOLD, 9.0F)))
            pdfCeldaMotivo.Colspan = 3
            pdfCeldaMotivo.Border = 0
            pdfTable.AddCell(pdfCeldaMotivo)
            Dim pdfCeldaRespuestaMotivo As New PdfPCell(New Phrase(" ", New Font(Font.BOLD, 9.0F, Font.BOLD, Color.BLACK)))
            pdfCeldaRespuestaMotivo.Border = 0
            pdfTable.AddCell(pdfCeldaRespuestaMotivo)
    
            Dim Localizacion As String = String.Format("Localizacion: " + txtLocalizacion_pdf.Text)
            Dim pdfCeldaLocalizacion As New PdfPCell(New Phrase(Localizacion, New Font(Font.BOLD, 9.0F)))
            pdfCeldaLocalizacion.Colspan = 3
            pdfCeldaLocalizacion.Border = 0
            pdfTable.AddCell(pdfCeldaLocalizacion)
            Dim pdfCeldaLocalizacionRespuesta As New PdfPCell(New Phrase(" ", New Font(Font.BOLD, 9.0F, Font.BOLD, Color.BLACK)))
            pdfCeldaLocalizacionRespuesta.Border = 0
            pdfTable.AddCell(pdfCeldaLocalizacionRespuesta)
    
            Dim Status As String = String.Format("Status: " + cmbStatus_pdf.Text)
            Dim pdfCeldaStatus As New PdfPCell(New Phrase(Status, New Font(Font.BOLD, 9.0F)))
            pdfCeldaStatus.Colspan = 3
            pdfCeldaStatus.Border = 0
            pdfTable.AddCell(pdfCeldaStatus)
            Dim pdfCeldaStatusRespuesta As New PdfPCell(New Phrase(" ", New Font(Font.BOLD, 9.0F, Font.BOLD, Color.BLACK)))
            pdfCeldaStatusRespuesta.Border = 0
            pdfTable.AddCell(pdfCeldaStatusRespuesta)
    
            Dim Observacion As String = String.Format("Observación: " + txtObservacion_pdf.Text)
            Dim pdfCeldaObservacion As New PdfPCell(New Phrase(Observacion, New Font(Font.BOLD, 9.0F)))
            pdfCeldaObservacion.Colspan = 3
            pdfCeldaObservacion.Border = 0
            pdfTable.AddCell(pdfCeldaObservacion)
            Dim pdfCeldaObservacionRespuesta As New PdfPCell(New Phrase(" ", New Font(Font.BOLD, 9.0F, Font.BOLD, Color.BLACK)))
            pdfCeldaObservacionRespuesta.Border = 0
            pdfCeldaObservacionRespuesta.FixedHeight = 400
            pdfTable.AddCell(pdfCeldaObservacionRespuesta)
    
    
            Dim pdfCelda694 As New PdfPCell(New Phrase("______________________________", New Font(Font.BOLD, 9.0F, Font.BOLD, Color.BLACK)))
            pdfCelda694.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
            pdfCelda694.Colspan = 2
            pdfCelda694.Border = 0
            pdfTable.AddCell(pdfCelda694)
            Dim pdfCelda700 As New PdfPCell(New Phrase("______________________________", New Font(Font.BOLD, 9.0F, Font.BOLD, Color.BLACK)))
            pdfCelda700.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
            pdfCelda700.Colspan = 2
            pdfCelda700.Border = 0
            pdfTable.AddCell(pdfCelda700)
    
    
            Dim pdfCelda711 As New PdfPCell(New Phrase("xxx", New Font(Font.BOLD, 9.0F, Font.BOLD, Color.BLACK)))
            pdfCelda711.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
            pdfCelda711.Colspan = 2
            pdfCelda711.Border = 0
            pdfCelda711.FixedHeight = 30
            pdfTable.AddCell(pdfCelda711)
    
            Dim pdfCelda722 As New PdfPCell(New Phrase("Jxxx", New Font(Font.BOLD, 9.0F, Font.BOLD, Color.BLACK)))
            pdfCelda722.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
            pdfCelda722.Colspan = 2
            pdfCelda722.Border = 0
            pdfCelda722.FixedHeight = 30
            pdfTable.AddCell(pdfCelda722)
    
    
            Dim pdfCsdelda694 As New PdfPCell(New Phrase("______________________________", New Font(Font.BOLD, 9.0F, Font.BOLD, Color.BLACK)))
            pdfCsdelda694.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
            pdfCsdelda694.Colspan = 4
            pdfCsdelda694.Border = 0
            pdfTable.AddCell(pdfCsdelda694)
    
            Dim pdfCel34da722 As New PdfPCell(New Phrase("Guardia", New Font(Font.BOLD, 9.0F, Font.BOLD, Color.BLACK)))
            pdfCel34da722.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER
            pdfCel34da722.Colspan = 4
            pdfCel34da722.Border = 0
            pdfTable.AddCell(pdfCel34da722)
    
            pdf.Open()
            pdf.Add(pdfTable)
            htmlParse.Parse(sr)
            pdf.Close()

    Saludos..

    jueves, 13 de abril de 2017 20:29

Respuestas

  • ingresa al link, el ejemplo en el link esta claro, esto es parte del código que se encuentra ahí

     Dim imagen As iTextSharp.text.Image 'declaración de imagen
            imagen = iTextSharp.text.Image.GetInstance(My.Application.Info.DirectoryPath & "\sket-dance.jpg") 'nombre y ruta de la imagen a insertar
            imagen.ScalePercent(16.7) 'escala al tamaño de la imagen
            imagen.SetAbsolutePosition(40, 500) 'posición en la que se inserta. 40 (de izquierda a derecha). 500 (de abajo hacia arriba)
    
            documento.Add(imagen) 'se agrega la imagen al documento
    
            'Forzamos vaciamiento del buffer.
            pdfw.Flush()
            'Cerramos el documento.
            documento.Close()


    Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.

    jueves, 13 de abril de 2017 22:00

Todas las respuestas

  • Hola

    Tienes un ejempo completo de como realizarlo aquí iTextSharp y VB .Net: Insertar imagen

    Saludos


    Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.

    jueves, 13 de abril de 2017 20:57
  • No puedo ver el ejemplo, puedes colocar un ejemplo por aquí? Gracias.

    jueves, 13 de abril de 2017 21:42
  • ingresa al link, el ejemplo en el link esta claro, esto es parte del código que se encuentra ahí

     Dim imagen As iTextSharp.text.Image 'declaración de imagen
            imagen = iTextSharp.text.Image.GetInstance(My.Application.Info.DirectoryPath & "\sket-dance.jpg") 'nombre y ruta de la imagen a insertar
            imagen.ScalePercent(16.7) 'escala al tamaño de la imagen
            imagen.SetAbsolutePosition(40, 500) 'posición en la que se inserta. 40 (de izquierda a derecha). 500 (de abajo hacia arriba)
    
            documento.Add(imagen) 'se agrega la imagen al documento
    
            'Forzamos vaciamiento del buffer.
            pdfw.Flush()
            'Cerramos el documento.
            documento.Close()


    Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.

    jueves, 13 de abril de 2017 22:00
  • Gracias amigo, me funciono !!
    jueves, 13 de abril de 2017 22:27