Debenu Quick PDF Library - PDF SDK Community Forum : New User, VB6 with QuickPDF http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 28 Apr 2026 09:59:38 +0000 Mon, 04 Apr 2011 14:34:41 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=1793 <![CDATA[Debenu Quick PDF Library - PDF SDK Community Forum]]> http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ <![CDATA[New User, VB6 with QuickPDF : Thanks for all the quick replies....]]> http://www.quickpdf.org/forum/new-user-vb6-with-quickpdf_topic1793_post7759.html#7759 Author: SnoopyUK
Subject: 1793
Posted: 04 Apr 11 at 2:34PM


Thanks for all the quick replies. Didn't really know what the appearances were for, just included them after looking at various snippets of code Smile
But...   AndrewC, excellent thank you. works fine now. Very helpful.
]]> Mon, 04 Apr 2011 14:34:41 +0000 http://www.quickpdf.org/forum/new-user-vb6-with-quickpdf_topic1793_post7759.html#7759 <![CDATA[New User, VB6 with QuickPDF : Two possibly issues, one minor,...]]> http://www.quickpdf.org/forum/new-user-vb6-with-quickpdf_topic1793_post7757.html#7757 Author: Rowan
Subject: 1793
Posted: 04 Apr 11 at 2:20PM

Two possibly issues, one minor, one big:

1. If you're calling SetNeedAppearances then you don't need to call UpdateAppearanceStream.
2. SetNeedAppearances takes 0 (false) or 1 (true), you can't update it with the index.
]]> Mon, 04 Apr 2011 14:20:59 +0000 http://www.quickpdf.org/forum/new-user-vb6-with-quickpdf_topic1793_post7757.html#7757 <![CDATA[New User, VB6 with QuickPDF : Can you post a link to the test...]]> http://www.quickpdf.org/forum/new-user-vb6-with-quickpdf_topic1793_post7756.html#7756 Author: jpbro
Subject: 1793
Posted: 04 Apr 11 at 2:14PM

Can you post a link to the test PDF?]]> Mon, 04 Apr 2011 14:14:47 +0000 http://www.quickpdf.org/forum/new-user-vb6-with-quickpdf_topic1793_post7756.html#7756 <![CDATA[New User, VB6 with QuickPDF : When you flatten a form field...]]> http://www.quickpdf.org/forum/new-user-vb6-with-quickpdf_topic1793_post7755.html#7755 Author: AndrewC
Subject: 1793
Posted: 04 Apr 11 at 2:14PM


When you flatten a form field it reduces the total Form Field count by 1 so the last loop in your code needs to be reversed in order to work properly to allow for the shrinking form field list.  

For i = FFCount to 1 step -1      '  I haven't programmed Basic in years....
                qp.FlattenFormField (i)
            Next i

Andrew.
]]> Mon, 04 Apr 2011 14:14:41 +0000 http://www.quickpdf.org/forum/new-user-vb6-with-quickpdf_topic1793_post7755.html#7755 <![CDATA[New User, VB6 with QuickPDF : Hi, I have installed the trial...]]> http://www.quickpdf.org/forum/new-user-vb6-with-quickpdf_topic1793_post7754.html#7754 Author: SnoopyUK
Subject: 1793
Posted: 04 Apr 11 at 1:30PM

Hi, I have installed the trial version and am currently trying to get this to work for me. I have a test PDF with 2 pages each with 3 fields on. When I step through my code it finds and populates all the fields but when I view the saved PDF the Qty field is blank and still editable.

Can anyone point out any obvious mistakes?

This is the relevant code:


qp.LoadFromFile ("C:\Users\Andy\Desktop\testfields.pdf")
FFCount = qp.FormFieldCount

       If FFCount > 0 Then

       For i = 1 To FFCount

            fftitle = qp.GetFormFieldTitle(i)
                
        If Right(fftitle, 10) = "Project[0]" Then
            qp.SetNeedAppearances (i)
            qp.SetFormFieldValue i, "New Project"
            qp.UpdateAppearanceStream (i)
        End If
        
        If Right(fftitle, 6) = "Qty[0]" Then
            qp.SetNeedAppearances (i)
            qp.SetFormFieldValue i, "632"
            qp.UpdateAppearanceStream (i)
        End If

        If Right(fftitle, 7) = "Date[0]" Then
            qp.SetNeedAppearances (i)
            qp.SetFormFieldValue i, "04/04/11"
            qp.UpdateAppearanceStream (i)
        End If
        
        Next i
    
            For i = 1 To FFCount
                qp.FlattenFormField (i)
            Next i
End If

qp.SaveToFile "C:\Users\Andy\Desktop\testfields2.pdf"

Any help would be greatly appreciated.

Thank you
]]> Mon, 04 Apr 2011 13:30:55 +0000 http://www.quickpdf.org/forum/new-user-vb6-with-quickpdf_topic1793_post7754.html#7754