ByteScout PDF Suite – VB.NET – Fill form w-4 with pdf sdk

Home
/
Articles
/
ByteScout PDF Suite – VB.NET – Fill form w-4 with pdf sdk

printable version:
ByteScout-PDF-Suite-VB-NET-Fill-form-w-4-with-pdf-sdk.pdf

fill form w 4 with pdf sdk in VB.NET using ByteScout PDF Suite

fill form w 4 with pdf sdk in VB.NET

An easy to understand guide to learn how to fill form w 4 with pdf sdk in VB.NET. ByteScout PDF Suite was created to assist fill form w 4 with pdf sdk in VB.NET. ByteScout PDF Suite is the bundle that provides six different SDK libraries to work with PDF from generating rich PDF reports to extracting data from PDF documents and converting them to HTML. This bundle includes PDF (Generator) SDK, PDF Renderer SDK, PDF Extractor SDK, PDF to HTML SDK, PDF Viewer SDK and PDF Generator SDK for Javascript.

This rich and prolific sample source code in VB.NET for ByteScout PDF Suite contains various functions and options you should do calling the API to implement fill form w 4 with pdf sdk. If you want to implement this functionality, you should copy and paste code below into your app using code editor. Then compile and run your application. These VB.NET sample examples can be used in one or many applications.

On our website you may get trial version of ByteScout PDF Suite for free. Source code samples are included to help you with your VB.NET application.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Program.vb

      Imports Bytescout.PDF

''' <summary>
''' This example demonstrates how to fill PDF form programmatically.
''' </summary>
Class Program

    Shared Sub Main()

        ' Map of form fields and sample values to set
        Dim fieldMap As New Dictionary(Of String, Object)()

        fieldMap.Add("f1_01[0]", "John J") ' FirstName And middle initial
        fieldMap.Add("f1_02[0]", "Smith") ' LastName
        fieldMap.Add("f1_03[0]", "111-111-3333") ' Security number
        fieldMap.Add("f1_04[0]", "12 Palm st., Hill Valley") ' Home address
        fieldMap.Add("f1_05[0]", "CA 12345") ' City, Town, State And ZIP
        fieldMap.Add("c1_1[1]", "True") ' Married
        fieldMap.Add("f1_06[0]", "123") ' Total number of allowance
        fieldMap.Add("f1_07[0]", "443.44") ' Additional amount
        fieldMap.Add("f1_09[0]", "Google, Somewhere in CA") ' Employer's name and address
        fieldMap.Add("f1_10[0]", "12-3-2012") ' First date of employment
        fieldMap.Add("f1_11[0]", "EMP223344") ' Employer identification number

        ' Load PDF form
        Dim pdfDocument = New Document("W-4.pdf")
        pdfDocument.RegistrationName = "demo"
        pdfDocument.RegistrationKey = "demo"

        ' Get first page
        Dim page = pdfDocument.Pages(0)

        ' Get widget by its name and change value
        For Each keyValuePair In fieldMap

            Dim annotation As Annotation = page.Annotations(keyValuePair.Key)

            If TypeOf (annotation) Is CheckBox Then
                CType(annotation, CheckBox).Checked = CType(keyValuePair.Value, Boolean)
            ElseIf TypeOf (annotation) Is EditBox Then
                CType(annotation, EditBox).Text = CType(keyValuePair.Value, String)
            End If

        Next

        ' Save modified document
        pdfDocument.Save("result.pdf")

        ' Cleanup 
        pdfDocument.Dispose()

        ' Open document in default PDF viewer app
        Process.Start("result.pdf")

    End Sub

End Class