Facebook Twitter RSS Reset

Itextsharp con Imagenes

Este post lo cree para recibir ayuda, ya que no he podido encontrar solucion alguna.

Itextshar lo he ocupado para generar reportes exportados a pdf.

El caso que necesito ayuda en lo siguiente, mi aplicacion trabaja en la plataforma de Visual Basic .net 2008, e itextsharp lo empleo para generar un pdf con dos imagenes que luego son impresas en un impresora datacar 360, donde las imagenes se impriman en una tarjeta PVC para identifiacion a doble cara.

El problema que tengo es que al momento de mandarlo a imprimir le pone un margen en la imagen tanto a la izquierda a como a la derecha y imagen tiene que cubrir toda la tarjeta PVC, he buscado la forma de quitarle el margen pero no he encontrado nada, he probado diferentes formatos que permite la libreria itexsharp de diferentes formas y el resultado es lo mismo, este es el codigo que utilizo.

Tambien lo he hecho de por porcentaje y lo mismo sale, la impresion es horizontal.

Imports System.IO

Imports iTextSharp.text

Imports iTextSharp.text.pdf

Imports System.Data

Imports System.Data.Sql

Imports System.Data.SqlClient

Imports System

Imports System.Text

Public Class Mod_ImpresionLicencias

Public Sub GenerarLicencia()

‘Dim doc = New Document(PageSize.LETTER.Rotate, 0, 0, 25.0F, 39.0F)

Dim doc As New iTextSharp.text.Document(PageSize.A7)

‘Dim doc = New Document(iTextSharp.text.PageSize.A6.Rotate, 0, 0, 1, 1)

‘Dim pgSize As New iTextSharp.text.Rectangle(myWidth, myHeight)

‘Dim Item As String

Dim writer As PdfWriter = PdfWriter.GetInstance(doc, New FileStream(“Licencias.pdf”, FileMode.Create))

doc.Open()

‘Los espacios que estan al final de cada parentesis estan asi para evitar que se creen las caritas

doc.Add(New Paragraph(” ” ))

doc.Add(New Paragraph(” ” ))

doc.Add(New Paragraph(” ” ))

doc.Add(New Paragraph(” ” ))

doc.Add(New Paragraph(” ” ))

doc.Add(New Paragraph(” ” ))

doc.Add(New Paragraph(” ” ))

‘doc.NewPage()

Dim imagen As iTextSharp.text.Image ‘declaración de imagen

imagen = iTextSharp.text.Image.GetInstance(My.Application.Info.DirectoryPath & “Lic.jpg” ) ‘nombre y ruta de la imagen a insertar

‘imagen.ScalePercent(56, 63) ‘escala al tamaño de la imagen

imagen.Border = 0

‘imagen.SetAbsolutePosition(0, 0) ‘posición en la que se inserta. 40 (de izquierda a derecha). 500 (de abajo hacia arriba)

doc.Add(imagen) ‘se agrega la imagen al documento

doc.Add(New Paragraph(” ” ))

doc.Add(New Paragraph(” ” ))

doc.Add(New Paragraph(” ” ))

doc.Add(New Paragraph(” ” ))

doc.Add(New Paragraph(” ” ))

doc.Add(New Paragraph(” ” ))

doc.Add(New Paragraph(” ” ))

doc.NewPage()

Dim imagen2 As iTextSharp.text.Image ‘declaración de imagen

imagen2 = iTextSharp.text.Image.GetInstance(My.Application.Info.DirectoryPath & “Licr.jpg” ) ‘nombre y ruta de la imagen a insertar

‘imagen2.ScalePercent(56, 63) ‘escala al tamaño de la imagen

imagen.Border = 0

‘imagen2.SetAbsolutePosition(0, 0) ‘posición en la que se inserta. 40 (de izquierda a derecha). 500 (de abajo hacia arriba)

‘imagen2.SetAbsolutePosition(10, 250)

‘imagen2.ALIGN_CENTER()

doc.Add(imagen2) ‘se agrega la imagen al documento

doc.Close()

System.Diagnostics.Process.Start(Directory.GetCurrentDirectory & “Licencias.pdf” )

End Sub

End Class

Impresa queda asi en la tarjeta en ambas caras

Itextsharp con Imagenes

Me gustaira saber si hay alguna forma de eliminar los bordes, y editar los bordes a cero para que salga en toda la tarjeta.

Les agradesco su ayuda de antemano.

No comments yet.

Leave a Comment