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 |
Post Options
Thanks(0)
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 |
Post Options
Thanks(0)
|
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 |
Post Options
Thanks(0)
|
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 |
Post Options
Thanks(0)
|
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