Created: 10/21/2009
Modified: 7/21/2014
Dim cFDFApp As New FDFApp.FDFApp_Class
Dim cFDFDoc As New FDFApp.FDFDoc_Class
cFDFDoc = cFDFApp.FDFCreate
'cFDFDoc.XDPAddForm("subform1", Request.Url.AbsoluteUri.Substring(0, Request.Url.AbsoluteUri.LastIndexOf("/") + 1) & "test_livecycle.pdf")
' !IMPORTANT ADD FORM (IF SINGLE PAGE THEN JUST ENTER "subform1"),PATH TO BLANK PDF
cFDFDoc.XDPAddForm("subform1", Server.MapPath("test_livecycle.pdf"))
' ADD FIELDS
'cFDFDoc.XDPSetValue(FieldName, FieldValue)
cFDFDoc.XDPSetValue("FullName", "Nick")
cFDFDoc.XDPSetValue("Email", "no-reply@nk-inc.com")
cFDFDoc.XDPSetValue("StreetAddress", "111 Easy Street")
cFDFDoc.XDPSetValue("City", "Clinton Township")
cFDFDoc.XDPSetValue("State", "MI")
cFDFDoc.XDPSetValue("Country", "United States")
cFDFDoc.XDPSetValue("PhoneNumber", "(586)-555-1111")
cFDFDoc.XDPSetValue("FaxNumber", "(586)-555-1212")
cFDFDoc.XDPSetValue("ZipCode", "48000")
' CLEAR RESPONSE (HTML CODE)
Response.Clear()
' SET MIME BEFORE SENDING TO BUFFER
Response.ContentType = cFDFApp.MimePDF
'sends pdf to buffer (Flattens = False)
Response.BinaryWrite(cFDFDoc.PDFMergeFDF2Buf(Server.MapPath("test_livecycle.pdf"), False, ""))
'merges to fil
'cFDFDoc.PDFMergeXDP2File(Server.MapPath("test_livecycle_new.pdf"), Server.MapPath("test_livecycle.pdf"), False, "")
'sends pdf to buffer (Flattens = Tru)
'Response.BinaryWrite(cFDFDoc.PDFMergeFDF2Buf(Server.MapPath("test_livecycle.pdf"), True, ""))
'sends xdp to buffer
'Response.BinaryWrite(cFDFDoc.FDFSavetoBuf(FDFDoc_Class.FDFType.XDP, True))
Response.End()
Go back to Development, Design & Programming Tutorials section