itextsharp.pdfa.dll

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim strSourceFile As String = "C:\TestPDF"
 
        Dim reader As iTextSharp.text.pdf.PdfReader = New _
          iTextSharp.text.pdf.PdfReader(strSourceFile)
        Dim outStamper As iTextSharp.text.pdf.PdfStamper = New _
        iTextSharp.text.pdf.PdfStamper(reader, New FileStream(strURL, _
        FileMode.Create))
 
        outStamper.AcroFields.SetField("txtAnschrift1", DAL.VarToStr( _
          datareader!Vorname) & " " & DAL.VarToStr(datareader!Nachname))
        outStamper.AcroFields.SetField("txtAnschrift2", DAL.VarToStr( _
        datareader!Strasse))
        outStamper.AcroFields.SetField("txtAnschrift3", DAL.VarToStr( _
        datareader!PLZ).ToString.TrimEnd & " " & DAL.VarToStr(datareader!Ort))
        outStamper.AcroFields.SetField("txtDatum", Format(Now, "dd.MM.yyyy"))
        outStamper.AcroFields.SetField("txtAnrede", Me.Anrede)
        oBewerb.CreateUnterschriften(strUnterschrift1, strUnterschrift2)
        outStamper.AcroFields.SetField("txtUnterschrift1", strUnterschrift1)
        outStamper.AcroFields.SetField("txtUnterschrift2", strUnterschrift2)
        outStamper.FormFlattening = True
        reader.Close()
        outStamper.Close()
 
End Sub