Escribiendo en los TextField de un Pdf con Visual Basic y iTextSharp

Hola! hoy pues vamos a ver como escribir en los campos editables de un pdf usando la poderosa libreria ITextSharp que por ser libre podemos usarla en nuestros proyectos sin problemas, la versión de visual studio es 2012 y como ya mencione uso Visual Basic .Net.

Para ello debemos de tener nuestro pdf con textfields:

1.- si es un pdf que ya tiene los textfield debemos de usar un programa para editar pdf para poder conocer el el nombre de los textfield y asi poder enviarle los datos!.

2.- si nosotros creamos nuetro pdf de igual manera deberemos de escribir nuestros textfields con el mismo programa para editar pdf.

una vez que tengamos nuestro pdf hecho y sabemos el nombre de los campos textfields

Imports System.IO

Imports iTextSharp.text.pdf

Imports System.Diagnostics

Public Class Form1

    Private Archivo As String

    Private Sub cmd_abrir_Click(sender As Object, e As EventArgs) Handles cmd_abrir.Click

        Archivo = "ejemplo.pdf"

        MessageBox.Show("Archivo Abierto correctamente", "Terminado")

    End Sub

    Private Sub cmd_escribir_Click(sender As Object, e As EventArgs) Handles cmd_escribir.Click

        Dim pdforiginal As String = Archivo

        'pdf el cual se guardara diferente al original

        Dim nuevopdf As String = "C:\Users\Prueba_Final.pdf"

        'tomando el pdf para su lectura

        Dim pdfReader As PdfReader = New PdfReader(pdforiginal)

        'abriendo el pdf

        Dim pdfStamper As PdfStamper = New PdfStamper(pdfReader, New FileStream(nuevopdf, FileMode.Create))

        'leyendo el arreglo de textfields

        Dim pdfFormFields As AcroFields = pdfStamper.AcroFields

        'Asigna los valores a los campos

        pdfFormFields.SetField("Texto1", "22")

        pdfFormFields.SetField("Texto2", "10")

        pdfFormFields.SetField("Texto3", "1987")

        MessageBox.Show("Datos asignados", "Terminado")

        'Cambia la propiedad para que no se pueda editar el PDF

        pdfStamper.FormFlattening = True

        'Cierra el PDF

        pdfStamper.Close()

        'abrimos el pdf

        Process.Start("acrord32.exe", nuevopdf)

    End Sub

End Class

Y esto es todo el codigo!

Adjunto el proyecto para que lo descarguen y lo prueben. saludos!

by. Joshyba!!

Si gustan comprar camisas bordadas, favor de llamar a la Artesana Patricia Jiménez al numero 961-314-26-72, para ver ejemplos

https://www.facebook.com/Manos-Magicas-Ropa-Artesanal-Chiapa-de-Corzo-1712219942361971/