Creación de PDF desde VS.Net sin componentes de terceros

INTRODUCCION:

Con el paso del tiempo, las aplicaciones que desarrollamos necesitan de mayor dedicación para cumplir con los requerimientos de los usuarios. Esto provoca que en algunas ocasiones tengamos ciertos problemas para satisfacer a nuestros queridos clientes "Los Usuarios" que son la razón de ser de nuestro trabajo. Estos esfuerzos por mantenerlos contentos, se ven mermados por la imposibilidad (sea técnica o de herramientas) de mostrar una data en un formato determinado. Este es el caso de los famosos Documentos de Formato portátil (PDF) que tanto les gustan a los usuarios (Y a nosotros mismo). No hace mucho tiempo tuve el inconveniente, de que un usuario deseaba mantener los datos que le mostraba en un datagrid en un archivo. El problema comenzó cuando deseaba que como primera opción le enviara el archivo en un .PDF, cosa que no tenia idea de como lograrlo. En segundo lugar me ha propuesto que se lo envié en un documento de Word. Es decir, que la información que le mostraba en un DataGrid en una pagina, se la transformara en un documento de Word y se la enviara. Al igual que la anterior opción, no tenía dominio de tema para complacerlo. En ese caso, opté por terminar enviándole el DataGrid por correo a sugerencia de un amigo (mi colega de código, Andrés Faya) y es así como he salido de paso. Luego me he encontrado un artículo que escribió alguien para www.elguille.info para generar PDF desde .net. La idea me atrajo y me he leído el artículo y le he escrito al autor, he consultado el site que tiene como referencia para descargar el componente extra que necesito (no nativo de vs.net) y al final de cuentas no he conseguido lo que he deseado. Esta situación, gracias a vs.net ha llegado a su final, pues nuestro IDE cuenta con las herramientas necesarias para crear nuestros PDF sin tener que usar componentes ni códigos de terceros. Este artículo, no pretende volverlos unos expertos en la creación de archivos de extensión PDF, pero por lo menos les mostrará la luz para continúen por ustedes mismos explorando y de paso compartiendo los conocimientos que adquieran (que no se les olvide esa parte, pues es la única forma en que podemos crecer como comunidad .net).

Desarrollo:

Bien, lo primero que necesitamos hacer es crear un reporte con Crystal Report que nos proporcione la apariencia que deseamos en nuestro .PDF. Se preguntaran, porque un reporte con Crystal? La respuesta es sencilla, la información que vamos a cargar en nuestro PDF, es la información que le estamos mostrando a nuestros usuarios en un datagrid y por ende, quien mejor que Crystal para darle un buen formato a ese reporte que deseamos convertir a PDF. Recuerden que con crystal puedes diseñar cartas y no solo reportes como tal. El fundamento de este ejemplo está sustentado en la creación de un DataSet tipado con el esquema de los campos que vamos a mostrar en nuestro PDF. Una vez hecho esto, entonces procedemos con las funciones que nos permiten crear nuestro PDF. Cuerpo de código

Imports CrystalDecisions.CrystalReports.Engine
Imports System.Data.SqlClient
Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents mconn As System.Data.SqlClient.SqlConnection
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.mconn = New System.Data.SqlClient.SqlConnection
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(344, 264)
        Me.Button1.Name = "Button1"
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "Button1"
        '
        'mconn
        '
        Me.mconn.ConnectionString = "workstation id=U24603;packet size=4096;integrated security=SSPI;data source=U2460" & _
        "3;persist security info=False;initial catalog=TimeManager"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(432, 318)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Function CrearPDF(ByVal ds As DataSet) 
        Dim strpdf As String
        'Esta es la instancia del reporte que tengo hecho con un binding del dataset tipado
        Dim cr As New Bloqueos
        cr.SetDataSource(ds)
        Try
		   'En la siguiente línea determinamos el formato final del reporte.
            cr.ExportOptions.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
            Dim filedest As New CrystalDecisions.Shared.DiskFileDestinationOptions
            'Determinamos la ruta donde se va a crear nuestro archivo al finalizar el proceso en este caso,
            'concatenamos horas, minutos, segundos, para mantener control en caso de usar la misma ruta en otras instancias.
            Dim nombrearchivopdf As String = "C:\pdf\PDF" & Date.Now.Hour & Date.Now.Minute & Date.Now.Second & ".pdf"
            filedest.DiskFileName = nombrearchivopdf
            'Le pasamos al reporte el parámetro destino del reporte (ruta)
            cr.ExportOptions.DestinationOptions = filedest
            'Le indicamos que el reporte no es para mostrarse en pantalla, sino, que es para guardar en disco
            cr.ExportOptions.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile
            'Indicamos el formato de la página del reporte
            cr.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Landscape
            'Finalmente exportamos el reporte a PDF
            cr.Export()
            'Como buenos samaritanos nos curamos en salud, y atrapamos las posibles excepciones que se pudieran presentar.
        Catch ex3 As CrystalDecisions.CrystalReports.Engine.InternalException
            MsgBox(ex3.Message & "       -----" & ex3.StackTrace)
        Catch ex2 As CrystalDecisions.CrystalReports.Engine.ExportException
            MsgBox("Se ha producido un error cargando los archivos a PDF. Error: " & ex2.Message, MsgBoxStyle.Information, "PDF Creator")
        Catch ex As System.IO.IOException
            MsgBox("Se ha producido un error cargando los archivos a PDF. Error: " & ex.Message, MsgBoxStyle.Information, "PDF Creator")
        End Try
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ad As New SqlDataAdapter("select * from bloqueotiempo", mconn)
        Dim ds2 As New ds
        Dim dt As New DataTable
        'Copiamos el esquema del DataSet tipado que hemos creado. "Ojo" no estamos copiando 
         'los registros que representa, solo la estructura. Pues, para copiar el contenido es con el método copy
        dt = ds2.Tables(0).Clone
        Try
            mconn.Open()
            ad.Fill(dt)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Prueba")
        Finally
            mconn.Close()
        End Try
        Dim i As Int32
        Dim con As Int32
        Dim dat As Date
       'Debido a que en este caso vamos a retornar un PDF por registros, entonces limpiamos
        'el DataSet tipado para que solo contenga el registro correspondiente a un pdf a la hora de llamar la función que los crea
        ds2.Tables(0).Clear()
        'Creamos un dataRow con el esquema de un row del dataset tipado para luego agregarle esta fila con datos al mismo dataset
        Dim row2 As DataRow = ds2.Tables(0).NewRow
        'Hacemos el recorrido de los registros
        For i = 0 To dt.Rows.Count - 1
        'Esta parte es fundamental que se realice de esta manera, pues en lo personal no he logrado pasar datos entre datarow directamente.
            con = dt.Rows(i)(0)
            row2(0) = con
            dat = dt.Rows(i)(1)
            row2(1) = dat
            dat = dt.Rows(i)(2)
            row2(2) = dat
            con = dt.Rows(i)(3)
            row2(3) = con
            con = dt.Rows(i)(4)
            row2(4) = con
            'Agrego la fila llena con los datos para crear el pdf al dataset tipado
            ds2.Tables(0).Rows.Add(row2)
            'Paso el dataset tipado como parámetro a la función que me genera el pdf
            CrearPDF(ds2)
            'Limpio el dataset para que la próxima iteración solo contenga el próximo registro
            ds2.Tables(0).Clear()
        Next
    End Sub
End Class

Conclusión:

Como pudieron observar, no ha sido necesaria la inclusión de ningún componente extra, para generar el PDF. Esto trae como consecuencia, que podamos crear aplicaciones Sin depender de las limitaciones que nos impongan terceros con sus componentes. Con esto y al igual que el los artículos anteriores espero que les sirva de ayuda a los que necesitan el conocimiento referente a la generación de PDF, que en honor a la verdad se que muchos son. Pues hasta hace poco era parte del conglomerado. Espero que les sirva y contribuya en su crecimientos como desarrolladores.