Explicamos en este tutorial cómo convertir un texto plano (sin formato) a fichero PDF usando la DLL gratuita iTextSharp y el lenguaje de programación Microsoft Visual Basic .Net 2010. Publicamos una aplicación completa de ejemplo con el código fuente en VB.Net: AjpdSoft Convertir Texto a PDF.

• Videotutorial AjpdSoft Convertir Texto a PDF.
• Descarga del componente gratuito iTextSharp.
• Instalación de Microsoft Visual Studio .Net.
• Convertir texto a PDF con VB.Net y iTextSharp.
• AjpdSoft Convertir Texto a PDF.
• Código fuente completo de AjpdSoft Convertir Texto a PDF.
• Artículos relacionados.
• Créditos.

Videotutorial AjpdSoft Convertir Texto a PDF

A continuación mostramos un videotutorial con la aplicación open source AjpdSoft Convertir Texto a PDF en funcionamiento:

Descarga del componente gratuito iTextSharp

Para desarrollar una aplicación que convierta texto en PDF (portable document format ó formato de documento portátil) usaremos la librería iTextSharp, por lo tanto necesitaremos descargar el fichero de esta librería dll. Accederemos a la URL:

http://sourceforge.net/projects/itextsharp

Descargaremos la versión más reciente de iTextSharp (iText#), en nuestro caso: iTextSharp 5.2.1. Se descargará el fichero itextsharp-all-5.2.1.zip, lo descomprimiremos. Este fichero contiene, a su vez, los siguientes ficheros comprimidos:

• itextsharp-dll-cores-5.2.1.zip
• itextsharp-dll-xtra-5.2.1.zip
• itextsharp-src-core-5.2.1.zip
• itextsharp-src-xtra-5.2.1.zip

iTextSharp está desarrollado en Microsoft Visual C# y, además, la descarga anterior incluye el código fuente completo (itextsharp-src-core-5.2.1.zip). En nuestro caso usaremos la DLL ya compilada de iTextSharp por lo que descomprimiremos el fichero "itextsharp-dll-cores-5.2.1.zip" que contiene el fichero itextsharp.dll, este será el fichero necesario para trabajar con ficheros PDF usando Visual Basic .Net (VB.Net) o Visual C#. Copiaremos este fichero a la carpeta que queramos (por ejemplo la raíz de nuestros proyectos). Más adelante deberemos seleccionarlo desde nuestro proyecto VB.Net:

Instalación de Microsoft Visual Studio .Net

Para desarrollar la aplicación que nos permita convertir texto a PDF usaremos el lenguaje de programación Microsoft Visual Basic .Net 2010 perteneciente a la suite de desarrollo Microsoft Visual Studio .Net. En el siguiente tutorial explicamos cómo instalar esta suite de desarrollo:

• Instalar Visual Studio .Net 2010 y desarrollar aplicación con acceso a PostgreSQL.

Convertir texto a PDF con VB.Net y iTextSharp

A continuación explicaremos cómo crear un proyecto o solución en Visual Basic .Net para convertir texto a PDF. Para ello abriremos Visual Basic .Net, pulsaremos en el menú "Archivo" - "Nuevo proyecto":

Seleccionaremos en la parte izquierda "Visual Basic" - "Windows", en la parte derecha seleccionaremos "Aplicación de Windows Forms" e introduciremos el nombre del proyecto, por ejemplo "AjpdSoftConvertirTextoPDF":

Agregaremos la referencia a iTextSharp (iText#), para ello pulsaremos en el menú "Proyecto" - "Agregar referencia":

Pulsaremos en la pestaña "Examinar" y seleccionaremos el fichero "itextsharp.dll" descargado anteriormente:

Añadiremos los "imports" al proyecto, para ello pulsaremos en el menú "Ver" - "Código":

Al principio agregaremos el siguiente código:

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

Añadiremos los siguientes componentes al formulario principal de nuestra aplicación para convertir texto a PDF:

• TextBox: con la propiedad "Multiline" a True, con nombre (name): txtTexto.
• Button: cuatro botones para "Abrir fichero", "Limpiar texto", seleccionar fichero PDF, "Generar PDF".
• TextBox: para los metadatos título, asunto, palabras clave, autor y para el fichero destino PDF.
• OpenFileDialog: para selección de fichero de texto plano a abrir y convertir a PDF.
• SaveFileDialog: para seleccionar fichero destino de conversión de texto a PDF.

A continuación mostramos el código fuente VB.Net de cada botón:

• Botón "Abrir fichero":

  Private Sub btAbrirFicheroTexto_Click(sender As System.Object,
                 e As System.EventArgs) Handles btAbrirFicheroTexto.Click
        dlAbrir.CheckFileExists = True
        dlAbrir.CheckPathExists = True
        dlAbrir.Multiselect = False
        dlAbrir.DefaultExt = "txt"
        dlAbrir.FileName = ""
        dlAbrir.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
        dlAbrir.Title = "Abrir fichero de texto para convertir a PDF"
        If dlAbrir.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim objFichero As New  _
                System.IO.StreamReader(dlAbrir.FileName, System.Text.Encoding.Default)
            txtTexto.Text = objFichero.ReadToEnd
  End If

• Botón "Limpiar texto":

    Private Sub btLimpiarTexto_Click(sender As System.Object,
                 e As System.EventArgs) Handles btLimpiarTexto.Click
        txtTexto.Text = ""
    End Sub

• Botón "Seleccionar PDF":

    Private Sub btSeleccionarPDF_Click(sender As System.Object, _
                 e As System.EventArgs) Handles btSeleccionarPDF.Click
        dlGuardar.CheckFileExists = False
        dlGuardar.CheckPathExists = True
        dlGuardar.DefaultExt = "txt"
        dlGuardar.FileName = ""
        dlGuardar.Filter = "Archivos PDF (*.pdf)|*.pdf|Todos los archivos (*.*)|*.*"
        dlGuardar.Title = "Fichero PDF destino"
        If dlGuardar.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtFicheroPDF.Text = dlGuardar.FileName
        End If
    End Sub

• Botón "Generar PDF":

    Private Sub btGenerarPDF_Click(sender As System.Object,
                 e As System.EventArgs) Handles btGenerarPDF.Click
        If txtTexto.Text = "" Then
            MsgBox("Debe introducir el texto a convertir a PDF.",
                   MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
            txtTexto.Focus()
        Else
            If txtFicheroPDF.Text = "" Then
                MsgBox("Debe indicar el fichero PDF destino de la conversión del texto.",
                       MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
                txtFicheroPDF.Focus()
            Else
                Try
                    'Creamos el objeto documento PDF
                    Dim documentoPDF As New Document
                    PdfWriter.GetInstance(documentoPDF,
                        New FileStream(txtFicheroPDF.Text, FileMode.Create))
                    documentoPDF.Open()

                    'Escribimos el texto en el objeto documento PDF
                    documentoPDF.Add(New Paragraph(txtTexto.Text,
                          FontFactory.GetFont(FontFactory.TIMES, 11,
                              iTextSharp.text.Font.NORMAL)))

                    '  documentoPDF.Add(New Paragraph("Documento generado por http://www.ajpdsoft.com",
                    '      FontFactory.GetFont(FontFactory.COURIER, 8,
                    '          iTextSharp.text.Font.NORMAL)))

                    'Añadimos los metadatos para el fichero PDF
                    documentoPDF.AddAuthor(txtAutor.Text)
                    documentoPDF.AddCreator("AjpdSoft Convertir texto a PDF - www.ajpdsoft.com")
                    documentoPDF.AddKeywords(txtPalabrasClave.Text)
                    documentoPDF.AddSubject(txtAsunto.Text)
                    documentoPDF.AddTitle(txtTitulo.Text)
                    documentoPDF.AddCreationDate()
                    'Cerramos el objeto documento, guardamos y creamos el PDF
                    documentoPDF.Close()
                    'Comprobamos si se ha creado el fichero PDF
                    If System.IO.File.Exists(txtFicheroPDF.Text) Then
                        If MsgBox("Texto convertido a fichero PDF correctamente " + _
                               "¿desea abrir el fichero PDF resultante?",
                               MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                            'Abrimos el fichero PDF con la aplicación asociada
                            System.Diagnostics.Process.Start(txtFicheroPDF.Text)
                        End If
                    Else
                        MsgBox("El fichero PDF no se ha generado, " + _
                               "compruebe que tiene permisos en la carpeta de destino.",
                               MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
                    End If
                Catch ex As Exception
                    MsgBox("Se ha producido un error al intentar convertir el texto a PDF: " + _
                        vbCrLf + vbCrLf + ex.Message,
                        MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
                End Try
            End If
        End If
    End Sub

AjpdSoft Convertir Texto a PDF

AjpdSoft Convertir Texto a PDF permite convertir texto plano (sin formato) a fichero PDF sin necesidad de usar impresoras PDF ni Acrobat Professional. El manejo de la aplicación es muy sencillo, es suficiente con escribir el texto a convertir en el cuadro de texto, o bien pulsar en el botón "Abrir fichero" y seleccionar un fichero de texto plano, la aplicación lo mostrará en el cuadro de texto. Una vez que hayamos introducido el texto a convertir a PDF, introduciremos los metadatos: título, asunto, palabras clave y autor. Seleccionaremos el fichero PDF de destino (el que se creará en la conversión) en "Fichero PDF de destino" y para generar el fichero PDF pulsaremos en "Generar PDF":

Si la conversión de texto a PDF se realiza correctamente la aplicación AjpdSoft Convertir Texto a PDF mostrará el siguiente mensaje, pulsando en "Sí" se abrirá el fichero PDF resultante:

Con el texto: "Texto convertido a fichero PDF correctamente ¿desea abrir el fichero PDF resultante?"

El fichero PDF abierto con Acrobat Reader:

Consultando las propiedades del fichero PDF generado podremos ver los metadatos introducidos anteriormente (título, autor, asunto, palabras clave, creador):

Código fuente completo de AjpdSoft Convertir Texto a PDF

A continuación mostramos el enlace para descargar gratuitamente el código fuente completo de la aplicación AjpdSoft Convertir Texto a PDF desarrollada con VB.Net 2010 (Microsoft Visual Basic .Net 2010):

• AjpdSoft Convertir Texto a PDF código fuente en VB.Net.

El listado completo del código fuente de la aplicación AjpdSoft Convertir Texto a PDF:

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


Public Class formPDF

    Private Sub btLimpiarTexto_Click(sender As System.Object,
                 e As System.EventArgs) Handles btLimpiarTexto.Click
        txtTexto.Text = ""
    End Sub

    Private Sub btAbrirFicheroTexto_Click(sender As System.Object,
                 e As System.EventArgs) Handles btAbrirFicheroTexto.Click
        dlAbrir.CheckFileExists = True
        dlAbrir.CheckPathExists = True
        dlAbrir.Multiselect = False
        dlAbrir.DefaultExt = "txt"
        dlAbrir.FileName = ""
        dlAbrir.Filter = "Archivos de texto (*.txt)|*.txt|Todos los archivos (*.*)|*.*"
        dlAbrir.Title = "Abrir fichero de texto para convertir a PDF"
        If dlAbrir.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim objFichero As New  _
                System.IO.StreamReader(dlAbrir.FileName, System.Text.Encoding.Default)
            txtTexto.Text = objFichero.ReadToEnd
        End If
    End Sub

    Private Sub btGenerarPDF_Click(sender As System.Object,
                 e As System.EventArgs) Handles btGenerarPDF.Click
        If txtTexto.Text = "" Then
            MsgBox("Debe introducir el texto a convertir a PDF.",
                   MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
            txtTexto.Focus()
        Else
            If txtFicheroPDF.Text = "" Then
                MsgBox("Debe indicar el fichero PDF destino de la conversión del texto.",
                       MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
                txtFicheroPDF.Focus()
            Else
                Try
                    'Creamos el objeto documento PDF
                    Dim documentoPDF As New Document
                    PdfWriter.GetInstance(documentoPDF,
                        New FileStream(txtFicheroPDF.Text, FileMode.Create))
                    documentoPDF.Open()

                    'Escribimos el texto en el objeto documento PDF
                    documentoPDF.Add(New Paragraph(txtTexto.Text,
                          FontFactory.GetFont(FontFactory.TIMES, 11,
                              iTextSharp.text.Font.NORMAL)))

                    '  documentoPDF.Add(New Paragraph("Documento generado por http://www.ajpdsoft.com",
                    '      FontFactory.GetFont(FontFactory.COURIER, 8,
                    '          iTextSharp.text.Font.NORMAL)))

                    'Añadimos los metadatos para el fichero PDF
                    documentoPDF.AddAuthor(txtAutor.Text)
                    documentoPDF.AddCreator("AjpdSoft Convertir texto a PDF - www.ajpdsoft.com")
                    documentoPDF.AddKeywords(txtPalabrasClave.Text)
                    documentoPDF.AddSubject(txtAsunto.Text)
                    documentoPDF.AddTitle(txtTitulo.Text)
                    documentoPDF.AddCreationDate()
                    'Cerramos el objeto documento, guardamos y creamos el PDF
                    documentoPDF.Close()
                    'Comprobamos si se ha creado el fichero PDF
                    If System.IO.File.Exists(txtFicheroPDF.Text) Then
                        If MsgBox("Texto convertido a fichero PDF correctamente " + _
                               "¿desea abrir el fichero PDF resultante?",
                               MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
                            'Abrimos el fichero PDF con la aplicación asociada
                            System.Diagnostics.Process.Start(txtFicheroPDF.Text)
                        End If
                    Else
                        MsgBox("El fichero PDF no se ha generado, " + _
                               "compruebe que tiene permisos en la carpeta de destino.",
                               MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
                    End If
                Catch ex As Exception
                    MsgBox("Se ha producido un error al intentar convertir el texto a PDF: " + _
                        vbCrLf + vbCrLf + ex.Message,
                        MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
                End Try
            End If
        End If
    End Sub

    Private Sub btSeleccionarPDF_Click(sender As System.Object, _
                 e As System.EventArgs) Handles btSeleccionarPDF.Click
        dlGuardar.CheckFileExists = False
        dlGuardar.CheckPathExists = True
        dlGuardar.DefaultExt = "txt"
        dlGuardar.FileName = ""
        dlGuardar.Filter = "Archivos PDF (*.pdf)|*.pdf|Todos los archivos (*.*)|*.*"
        dlGuardar.Title = "Fichero PDF destino"
        If dlGuardar.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtFicheroPDF.Text = dlGuardar.FileName
        End If
    End Sub

    Private Sub formPDF_Load(sender As System.Object,
                e As System.EventArgs) Handles MyBase.Load
        txtFicheroPDF.Text =
            System.IO.Path.Combine(System.Environment.GetFolderPath(
                Environment.SpecialFolder.MyDocuments), "documento.pdf")
    End Sub
End Class

Artículos relacionados

• AjpdSoft Convertir Texto a PDF código fuente Visual Basic .Net.
• Videotutorial AjpdSoft Convertir Texto a PDF.
• Generar y leer códigos QR Quick Response Barcode con Visual Basic .Net VB.Net.
• Cómo desarrollar una aplicación de servicio en Windows con Visual Basic .Net.
• Generar números aleatorios random con Visual Studio .Net VB .NET.
• Exportar ListView a fichero CSV VB.Net.
• El control de errores en Visual Basic .Net.
• Crear proceso en segundo plano con barra de progreso en Visual Basic .Net VB.Net.
• Insertar evento de Google Calendar con Visual Basic .Net y Google Data API.
• Instalar Visual Studio 2010 y desarrollar aplicación con acceso a PostgreSQL.
• Administración VMware ESXi y vCenter con PowerCLI y VIX API con C#.
• Acceso a MySQL mediante Visual Basic .Net y ODBC.
• Acceso Twitter aplicación C# API Twitter AjpdSoft Gestión Seguidores Twitter.
• Estructura del código de barras EAN 13 y ejemplo en Delphi de obtención de datos.
• Metadatos, cómo eliminarlos, cómo consultarlos, peligrosos para la privacidad.
• Desarrollar aplicación lector de códigos de barras para Android con App Inventor.
• Acceso a Oracle mediante Microsoft Visual Basic, RDO y ODBC.
• Insertar y extraer documentos en una tabla Oracle con Visual Basic 6.
• Cambiar marcadores de Word por valores del formulario de una aplicación.
• Función para reemplazar una cadena de texto dentro de otra - Visual Basic.
• Funciones para leer y escribir en ficheros INI VB.Net.
• AjpdSoft Socket VB.Net.
• AjpdSoft Envío SMS VB.Net.
• AjpdSoft Envío EMail SSL VB.Net.
• AjpdSoft Conexión BD Visual Basic .Net.
• AjpdSoft Insertar Evento Google Calendar VB.net.
• AjpdSoft Inventario PCs - Código fuente Delphi.
• AjpdSoft Generador de códigos de barras.
• AjpdSoft extraer texto PDF Delphi.
• Artículos, manuales y trucos del Proyecto AjpdSoft sobre Microsoft Visual Studio.
• Todos los programas con código fuente en Visual Basic.
• Foro del Proyecto AjpdSoft sobre Visual Basic, Visual Studio .Net, VB.Net.

Créditos

Artículo realizado íntegramente por Alonsojpd miembro fundador del Proyecto AjpdSoft.

Artículo en inglés.