Do you own a Debenu Quick PDF Library version 7, 8, 9, 10, 11, 12, 13 or iSEDQuickPDF license? Upgrade to Debenu Quick PDF Library 14 today!
![]() |
no print fields value |
Post Reply ![]() |
Author | |
calfasoft ![]() Beginner ![]() ![]() Joined: 14 Apr 09 Status: Offline Points: 3 |
![]() ![]() ![]() ![]() ![]() Posted: 14 Apr 09 at 9:17AM |
Hello and excuse for my bad enghlish...
I have try QUICKpdf and i think that is a wonderful program, but there is a problem that i has not solved. I have created with acrobat a file with 5 fields. With VB6 and QUICKpdf i can read the file, and insert or modify the content of my fields. I can also save te new files, and if i open it with acrobat I can read the content of the fields that i've changed with my program... the problem is : when I print the file from my program, the fields are all BLANK !!!! I've try many solutions, also saved the files, re open and print, but the result is the some. The fields are BLANK !!! can you help me ? this is the code : Dim ClassName Dim LicenseKey Dim FileName, FileNameNew, Instance(5) As Long ClassName = "QuickPDFAX0712.PDFLibrary" LicenseKey = "j74gf38u9i88w97zu88w7gb7y" FileName = "scheda.pdf" FileNameNew = "scheda_new.pdf" Dim QP As QuickPDFAX0712.PDFLibrary Dim Result Set QP = New QuickPDFAX0712.PDFLibrary ' CreateObject(ClassName) Print ("Library version: " + QP.LibraryVersion) Result = QP.UnlockKey(LicenseKey) If Result = 1 Then Print ("Valid license key: " + QP.LicenseInfo) Instance(0) = QP.LoadFromFile(FileName) Print "Instance(0) ; "; Instance(0) Instance(1) = QP.FindFormFieldByTitle("Nome") Print "Instance(1) ; "; Instance(1) Print "GetFormFieldPrintable : "; QP.GetFormFieldPrintable(Instance(1)) Instance(2) = QP.SetFormFieldValue(Instance(1), "Fabio") Print "Instance(2) ; "; Instance(2) QP.SetFormFieldValueByTitle "Cognome", "Calzeroni" QP.SetFormFieldValueByTitle "Indirizzo", "Via Borgomanero, 26" QP.SetFormFieldValueByTitle "CAP", "28040 PARUZZARO (NO)" If QP.SaveToFile(FileNameNew) = 1 Then Print ("File " + FileNameNew + " written successfully") Else Print ("Error, file could not be written") End If QP.PrintDocument "hp LaserJet 1320 PCL 5e", 1, 1, 0 Else Print ("- Invalid license key -") Print ("Please set your license key by editing this file") End If Set QP = Nothing thankyou... |
|
![]() |
|
Ingo ![]() Moderator Group ![]() ![]() Joined: 29 Oct 05 Status: Offline Points: 3524 |
![]() ![]() ![]() ![]() ![]() |
Hi!
Without reading your code ... Did you use FlattenFormfield before? ... It's necessary. Cheers, Ingo |
|
![]() |
|
calfasoft ![]() Beginner ![]() ![]() Joined: 14 Apr 09 Status: Offline Points: 3 |
![]() ![]() ![]() ![]() ![]() |
![]() GOOD !!! now it's ok... i've search in the forum this question, but i've not find any solutions. now i can proced to realize my program, and buy the regular version of the library. thankyou !! Fabio |
|
![]() |
|
calfasoft ![]() Beginner ![]() ![]() Joined: 14 Apr 09 Status: Offline Points: 3 |
![]() ![]() ![]() ![]() ![]() |
I've solved with this simple function:
Sub SetFormFields(ByRef TmpQP As QuickPDFAX0712.PDFLibrary, ByVal FieldName As String, FieldValue As String) Dim TmpI As Long With TmpQP TmpI = .FindFormFieldByTitle(FieldName) .SetFormFieldValue TmpI, FieldValue .FlattenFormField TmpI End With End Sub |
|
![]() |
Post Reply ![]() |
|
Tweet
|
Forum Jump | Forum Permissions ![]() You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |
Copyright © 2017 Debenu. Debenu Quick PDF Library is a PDF SDK. All rights reserved. About — Contact — Blog — Support — Online Store