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 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.
Datos archivados del Taringa! original
0puntos
67visitas
0comentarios
Actividad nueva en Posteamelo
0puntos
2visitas
0comentarios
Dar puntos: