Itextsharp

Reportes con ITextSharp en Visual Basic
Posted by elsr.doo 
 Reverse DNS Online       Biblioteca       IRC #Undersecurity       Twitter       Secureless new
Forum List Message List New Topic
elsr.dooReportes con ITextSharp en Visual Basic 
November 18, 2010 03:27PM | Registered: 1 year ago
Posts: 7 |
Hola a todos, 
Un pequeño tip's para quienes quieran hacer un reporte en PDF desde.NET, usando ITxsharp que es una libreria gratis (http://sourceforge.net/projects/itextsharp) 

Ante todo yo estoy usando Microsoft Visual Basic 2010 Express, pero para tambien los que programan en SharpDevelos funciona de igual menra. 

1. 
Agregerar la referencia del dll previamente descargado. 
 

 

2. 
Importar desde el codigo para que se pueda crear el documento PDF y ademasagregar imagenes y tablas. 

-------------------------------------------------
Imports iTextSharp
-------------------------------------------------
Imports iTextSharp.text
-------------------------------------------------
Imports iTextSharp.text.pdf
-------------------------------------------------
ImportsiTextSharp.text.Image
-------------------------------------------------
Imports System.IO

3. Crear un documento con texto 

-------------------------------------------------
Dim Documento As New Document 'Declaracion del documento
-------------------------------------------------
Dim parrafo As New Paragraph ' Declaracion de un parrafo-------------------------------------------------

-------------------------------------------------
pdf.PdfWriter.GetInstance(Documento, New FileStream("Demo.pdf", FileMode.Create)) 'Crea el archivo "DEMO.PDF
-------------------------------------------------

-------------------------------------------------Documento.Open() 'Abre documento para su escritura
-------------------------------------------------
parrafo.Alignment = Element.ALIGN_CENTER 'Alinea el parrafo para que sea centrado o justificado
-------------------------------------------------
parrafo.Font = FontFactory.GetFont("Arial", 10, ALIGN_CENTER) 'Asigan fuente-------------------------------------------------
parrafo.Add("DEMO EXPLICATIVO") 'Texto que se insertara
-------------------------------------------------
Documento.Add(parrafo) 'Agrega el parrafo al documento
-------------------------------------------------
parrafo.Clear() 'Limpia el parrafo para que despues pueda ser utilizado nuevamente-------------------------------------------------

-------------------------------------------------
Documento.Close() 'Cierra el documento
-------------------------------------------------
System.Diagnostics.Process.Start("Demo.pdf") 'Abre el archivo DEMO.PDF
 

4. Ahora le agregamos una imagen -------------------------------------------------
Dim imagendemo As ItextSharp.text.Image 'Declaracion de una imagen
-------------------------------------------------

-------------------------------------------------
imagendemo = ItextSharp.text.Image.GetInstance("imagendemo.jpg") 'Dirreccion a la imagen que se hace referencia-------------------------------------------------
imagendemo.SetAbsolutePosition(50, 550) 'Posicion en el eje cartesiano
-------------------------------------------------
imagendemo.ScaleAbsoluteWidth(200) 'Ancho de la imagen
-------------------------------------------------
imagendemo.ScaleAbsoluteHeight(165) 'Altura de la imagen...