New User, VB6 with QuickPDF

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
SnoopyUK Members Profile Find Members Posts Beginner Joined: 04 Apr 11 Location: UK Status: Offline Points: 3	Post Options Post Reply Quote SnoopyUK Report Post Thanks(0) Quote Reply Topic: New User, VB6 with QuickPDF 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

AndrewC Members Profile Find Members Posts Moderator Group Joined: 08 Dec 10 Location: Geelong, Aust Status: Offline Points: 841	Post Options Post Reply Quote AndrewC Report Post Thanks(0) Quote Reply 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.

jpbro Members Profile Find Members Posts Senior Member Joined: 29 Mar 11 Status: Offline Points: 77	Post Options Post Reply Quote jpbro Report Post Thanks(0) Quote Reply Posted: 04 Apr 11 at 2:14PM
	Can you post a link to the test PDF?

Rowan Members Profile Find Members Posts Moderator Group Joined: 10 Jan 09 Status: Offline Points: 398	Post Options Post Reply Quote Rowan Report Post Thanks(0) Quote Reply 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.

SnoopyUK Members Profile Find Members Posts Beginner Joined: 04 Apr 11 Location: UK Status: Offline Points: 3	Post Options Post Reply Quote SnoopyUK Report Post Thanks(0) Quote Reply 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 But... AndrewC, excellent thank you. works fine now. Very helpful.