Exportar Datagridview a pdf parte I

Que tal amigos, como lo prometido es deuda...Estoy aqui con un nuevo tema, que creo yo es muy importante en tu aplicación: Exportar Datagridview a Pdf. Anteriormente les habia expuesto como exportar a Excel, ahora  nos valemos de las librerias: itexSharp para guardar nuestra grid a formato pdf.

En un principio debemos hacer la referencia a la libreria: itextsharp.dll que se puede descargar gratis del sitio: http://sourceforge.net/projects/itextsharp/ 
Como antes les mostrare una captura:



La referencia sobre la cabecera o General

Imports System.IO
Imports iTextSharp.text
Imports iTextSharp.text.pdf

 y luego la rutina publica:

 Public Sub ExportarDatosPDF(ByVal document As Document)
        'Se crea un objeto PDFTable con el numero de columnas del DataGridView. 
        Dim datatable As New PdfPTable(grid1.ColumnCount)
        'Se asignan algunas propiedades para el diseño del PDF.
        datatable.DefaultCell.Padding = 3
        Dim headerwidths As Single() = GetColumnasSize()
        datatable.SetWidths(headerwidths)
        datatable.WidthPercentage = 50
        datatable.DefaultCell.BorderWidth = 2
        datatable.DefaultCell.HorizontalAlignment = Element.ALIGN_CENTER
        'Se crea el encabezado en el PDF. 
        Dim encabezado As New Paragraph("Reporte", New Font(Font.Name = "Tahoma", 20, Font.Bold))
        'Se crea el texto abajo del encabezado.
        Dim texto As New Phrase("Reporte Ejemplo: " + Now.Date(), New Font(Font.Name = "Tahoma", 14, Font.Bold))
        'Se capturan los nombres de las columnas del DataGridView.
        For i As Integer = 0 To grid1.ColumnCount - 1
            datatable.AddCell(grid1.Columns(i).HeaderText)
        Next
        datatable.HeaderRows = 1
        datatable.DefaultCell.BorderWidth = 1
        For i As Integer = 0 To grid1.Rows.Count - 2
            For j As Integer = 0 To grid1.Columns.Count - 1
                datatable.AddCell((grid1(j, i).Value).ToString)
            Next
            datatable.CompleteRow()
        Next
        'da 2 tab entre columnas
        datatable.AddCell("")
        datatable.AddCell("")
        'imprime resultados
        datatable.AddCell(grid1(2, 6).Value)
        datatable.AddCell(grid1(3, 6).Value)
        datatable.CompleteRow()
        'Se agrega etiquetas
        document.Add(encabezado)
        document.Add(texto)
        document.Add(datatable)
    End Sub

Redimensionando las columnas,
Public Function GetColumnasSize() As Single()
        Dim values As Single() = New Single(grid1.ColumnCount - 1) {}
        For i As Integer = 0 To grid1.ColumnCount - 1
            values(i) = CSng(grid1.Columns(i).Width)
        Next
        Return values
    End Function

 y  al final el codigo sobre el boton Exportar
Private Sub BtnPdf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPdf.Click
        Try
            ' Intentar generar el documento.
            Dim doc As New Document(PageSize.A4.Rotate(), 10, 10, 10, 10)
            ' Path que guarda el reporte en el escritorio de windows (Desktop).
            Dim filename As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) + "\Reporte.pdf"
            Dim file As New FileStream(filename, FileMode.Create, FileAccess.Write, FileShare.ReadWrite)
            PdfWriter.GetInstance(doc, file)
            doc.Open()
            ExportarDatosPDF(doc)
            doc.Close()
            Process.Start(filename)
        Catch ex As Exception
            'Si el intento es fallido, mostrar MsgBox.
            MessageBox.Show("No se puede generar el documento PDF.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Class

Mi captura de mi grid en  Pdf



Que les parece!..Interesante... verdad?. Bueno dejo a su criterio y mi ejemplo completo. Nos vemos en otra entrega más.


Mi link: https://docs.google.com/open?id=0B-UGWA03tc5ZY0JDcEdfWUNJUjQ