NK-Inc.com
PDF Programming Tutorials

PDF Programming Tutorials

Programming Dynamic PDF forms using FDFToolkit.net

POPULATE LiveCycle PDF with data - ASP.net VB.net

Categories: PDF Programming Posted by NicK on 10/21/2009 9:30 AM | Comments (0) 
        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.PDFMergeXDP2Buf(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 = True)
        'Response.BinaryWrite(cFDFDoc.PDFMergeXDP2Buf(Server.MapPath("test_livecycle.pdf"), True, ""))
        'sends xdp to buffer
        'Response.BinaryWrite(cFDFDoc.FDFSavetoBuf(FDFDoc_Class.FDFType.XDP, True))
        Response.End()

POPULATE LiveCycle PDF with data - ASP.net VB.net

Categories: PDF Programming Posted by NicK on 10/21/2009 9:30 AM | Comments (0) 

        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()