Introducción a iTextSharp, generar PDF desde VB.Net

Para quienes aún no tienen el gusto les presento iTextSharp, una biblioteca original de Java portada a .Net.
¿Su función? Arrimarle el paraíso a aquellos que buscan generar archivos con formato Adobe PDF desde la plataforma .Net. No menos importante destacar que se trata de un proyecto de código abierto totalmente libre. Existen infinidad de bibliotecas similares pagas pero como siempre tenemos nuestra alternativa gratuita .
Puedes descargarla aquí.

Veamos como utilizarla:En primer lugar, una vez descargada la biblioteca, necesitamos incluir la referencia en nuestro proyecto.
- Clickeamos en “Add Reference” dentro del menú “Project”

- Seleccionamos nuestra biblioteca recien descargada.

- De modo que nos quede referenciado en nuestro proyecto.

---

Y simplemente para cerrar esta archi sencilla intro les dejo un breve ejemplo de cómo hacer uso del assembly para generar un documento PDF con texto …

Private Sub GenerarPDF()
Dim oDoc As New iTextSharp.text.Document(PageSize.A4, 0, 0, 0, 0)
Dim pdfw As iTextSharp.text.pdf.PdfWriter
Dim cb As PdfContentByte
Dim fuente As iTextSharp.text.pdf.BaseFont
Dim NombreArchivo As String = “C:\ejemplo.pdf”
Try
pdfw = PdfWriter.GetInstance(oDoc, New FileStream(NombreArchivo, _
FileMode.Create, FileAccess.Write, FileShare.None))
‘Apertura del documento.
oDoc.Open()
cb = pdfw.DirectContent
‘Agregamos una pagina.
oDoc.NewPage()
‘Iniciamos el flujo de bytes.
cb.BeginText()
‘Instanciamos el objeto para la tipo de letra.
fuente = FontFactory.GetFont(FontFactory.HELVETICA, iTextSharp.text.Font.DEFAULTSIZE, iTextSharp.text.Font.NORMAL).BaseFont
‘Seteamos el tipo de letra y el tamaño.
cb.SetFontAndSize(fuente, 12)
‘Seteamos el color del texto a escribir.
cb.SetColorFill(iTextSharp.text.Color.BLACK)
‘Aqui es donde se escribe el texto.
‘Aclaracion: Por alguna razon la coordenada vertical siempre es tomada desde el borde inferior (de ahi que se calcule como “PageSize.A4.Height – 50″)
cb.ShowTextAligned(PdfContentByte.ALIGN_LEFT, “Ejemplo basico con iTextSharp”, 200, PageSize.A4.Height – 50, 0)
‘Fin del flujo de bytes.
cb.EndText()
‘Forzamos vaciamiento del buffer.
pdfw.Flush()
‘Cerramos el documento.
oDoc.Close()
Catch ex As Exception
‘Si hubo una excepcion y el archivo existe …
If File.Exists(NombreArchivo) Then
‘Cerramos el documento si esta abierto.
‘Y asi desbloqueamos el archivo para su eliminacion.
If oDoc.IsOpen Then oDoc.Close()
‘… lo eliminamos de disco.
File.Delete(NombreArchivo)
End If
Throw New Exception(“Error al generar archivo PDF (” & ex.Message & “)”)
Finally
cb = Nothing
pdfw = Nothing
oDoc = Nothing
End Try
End Sub