' create PDFDoc object
 Set PDFDoc = CreateObject("PDFDocScout.PDFDocument")
 ' initialize library
 PDFDoc.InitLibrary "demo", "demo"
 
 ' set output filename for PDF document
 PDFDoc.OutputFileName = "pdfdocscout_example_submit_form_action.pdf"
 ' automatically open generated PDF document in default PDF viewer application
 PDFDoc.AutoOpenGeneratedPDF = true

 ' starts PDF document generation
 PDFDoc.BeginDocument

  'Add new Submit Form Action
 Set SubmitFormAction = PDFDoc.AddSubmitFormAction("http://testwebsite/testpage.asp", True, stGet)

 ' Add button
 Set btnTest = PDFDoc.Page.AddButton("btnDemo", 100, 150, 200, 110)
 btnTest.Caption = "Run Submit Form Action"
 ' Set button action
 btnTest.OnMouseDown = SubmitFormAction

 ' Add edit field control
Set EditField = PDFDoc.Page.AddEdit ("testTextBox", 100, 220, 150, 230)
EditField.Text = "testTextBox"

 ' close pdf document generation
 PDFDoc.EndDocument

 ' disconnect from library
 Set PDFDoc = Nothing

Download example source code: pdfdocscout_example_submit_form_action.zip (55,8 KB)