Creación de PDF desde VB.NET

La librería itextsharp nos proporciona un camino fácil y gratuito para generar documentos PDFs desde una aplicación .NET Además, cuenta con muchísimas opciones y configuraciones.

Vemos a continuación un pequeño ejemplo de uso en el que creamos una tabla y colocamos una imagen a modo de logotipo.

Dim documento As iTextSharp.text.Document
Dim escritor As iTextSharp.text.pdf.PdfWriter
Dim tabla As iTextSharp.text.Table
Dim texto As iTextSharp.text.Phrase
Dim celda As iTextSharp.text.Cell
Dim imagen As iTextSharp.text.Image
Dim f, c As Integer

documento = New iTextSharp.text.Document(iTextSharp.text.PageSize.A4.Rotate, 50, 50, 50, 50)
escritor = iTextSharp.text.pdf.PdfWriter.GetInstance(documento, New FileStream("test.pdf", FileMode.Create))
tabla = New iTextSharp.text.Table(14, 25)


imagen = iTextSharp.text.Image.GetInstance(System.AppDomain.CurrentDomain.BaseDirectory & "\logo.png")
imagen.SetAbsolutePosition(100, documento.PageSize.Height - 100)
imagen.ScalePercent(30)

For f = 0 To 24
    For c = 0 To 13
        texto = New iTextSharp.text.Phrase("(" & f & "," & c & ")")
        celda = New iTextSharp.text.Cell(texto)
        tabla.AddCell(celda, f, c)
    Next
Next


documento.Open()
documento.Add(imagen)
documento.Add(tabla)
documento.Close()