PDF w/form fields View/Edit/Print Activex control 3

[blue][]bTracy

Then we run into the problem of requiring the full version of Adobe Acrobat on the workstations so the adobe pdf.ocx will save the form with the data to disk so the toolkit can read the changes.

Click to expand...

I haven't check with Adobe's website, but is it possible that you only need a freely distributable runtime file to achieve this action? Maybe a quick e-mail to thir suppor would confirm this.


Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

Holzert,

We could handle it with purchasing two separate pdf
tools if necessary.

I don't think you have any choice. The whole point of the OCX is that it is a reader. You can't use it to write the updated data back to disk. You have to use the full Acrobat product to do that. That's how Adobe make their money.

Mike


Mike Lewis
Edinburgh, Scotland

My Visual Foxpro web site: My Crystal Reports web site:

Heya Holzert,

Not sure if this will help at all but I recently had a client which used the Gnositice product for updating PDF Form fields but has also needed the capability to create PDF documents from scratch based on a "template" his clients set up in a memo field.

I found the Amyuni PDFCreator...


.. worked well for this. As part of this product I believe you get a viewer and editor GUI. Maybe you could use that to allow users to edit in the PDF file itself.

HTH



Toodles,
Steve Dingle
D&S Business Solutions Ltd

Hey Steve,

Good to see you here. If this is your first time in Tek-Tips, you'll see some familiar faces (some of them are refugees from MSDEVAPPS, like me).

Mike


Mike Lewis
Edinburgh, Scotland

My Visual Foxpro web site: My Crystal Reports web site:

Heya Mike,

I found the link to here on your site and have posted a coupla questions on the HTML/CSS forum. Figured I might as well poke my head into the VFP forums I do miss the OLR UI but this seems like a nice UI for forums

Will be see'in ya around I'm sure ;-)

Toodles,
Steve Dingle
D&S Business Solutions Ltd

Thanks everyone for the ideas.

Stgeve,

Figured I might as well poke my head into the VFP forums

And I see you jumped straight to #4 in the forum MVP list. Kudos.

Mike


Mike Lewis
Edinburgh, Scotland

My Visual Foxpro web site: My Crystal Reports web site:

For any lurkers, I found a way to do it using automation or javascript directly from VFP (see the SDK for more information)
<code>
*--This example reqs test.pdf with the following fieldnames (all are case sensitive):
* "AGENCY.NAME"
* "AGENCY.ADDR1"
* "AGENCY.CITYSTZIP"


sFieldName = "AGENCY.NAME"
sFieldName2 = "AGENCY.ADDR1"
sFieldName3 = "AGENCY.CITYSTZIP"

sfileName = "C:\acordforms\test\test.pdf"
IF !FILE(sFileName)
=MESSAGEBOX('Cannot locate: '+sfilename)
sFileName=GETFILE('pdf','PDF File:','Open',1,'Please select a pdf file with the formfield AGENCY.ADDR1')
IF !FILE(sFileName)
=MESSAGEBOX('Cannot locate: '+sfilename)
RETURN
ENDIF
ENDIF

AcroExchApp = CREATEOBJECT("AcroExch.App")
AcroExchAVDoc = CreateObject("AcroExch.AVDoc")
AcroExchAVDoc.Open(sFileName, "")
AcroForm = CreateObject("AFormAut.App")
AcroFields = AcroForm.Fields

*--Get the value of the first field AGENCY.NAME in our test.pdf
AcroField = AcroFields.Item(sFieldName)
*--Get the value of the 2nd field AGENCY.ADDR1 in our test.pdf
AcroField2 = AcroFields.Item(sFieldName2)

MESSAGEBOX(PADR(PADL("FORMFIELD AGENCY.NAME value:",40),80)+CHR(13)+AcroField.Value+CHR(13)+CHR(13);
+PADR(PADL("FORMFIELD AGENCY.ADDR1 value:",40),80)+CHR(13)+AcroField2.Value,0+64+4096,"Value Retrieved by Automation")

IF MESSAGEBOX('Print '+sFileName+'?',1+32+4096,'Send to Printer')=1
AcroExchAVDoc.PrintPages(0, 1, 2, .t., .f.)
ENDIF

*--Get the value of the citystzip formfield using javascript
sJS = "event.value = this.getField("+"'"+sFieldName3+"'"+").value;"
sValue = AcroForm.Fields.ExecuteThisJavaScript(sJS)

=MESSAGEBOX(PADR(PADL("AGENCY.CITYSTZIP value:",40),80)+CHR(13)+sValue+CHR(13),0+64+4096,"Value Retrieved by JavaScript")

*--Change the agency name and addr1 field values on the pdf form
Acrofield.value = "New Company Name"
Acrofield2.value = "New Street Address"

MESSAGEBOX(PADR(PADL("FORMFIELD AGENCY.NAME value:",40),80)+CHR(13)+AcroField.Value+CHR(13)+CHR(13);
+PADR(PADL("FORMFIELD AGENCY.ADDR1 value:",40),80)+CHR(13)+AcroField2.Value,0+64+4096,"Value Changed and Retrieved by Automation")

IF MESSAGEBOX('Print modified '+sFileName+'?',1+32+4096,'Send to Printer')=1
AcroExchAVDoc.PrintPages(0, 1, 2, .t., .f.)
ENDIF
AcroExchAVDoc.Close(.T.)
AcroExchApp.Exit
</code>
To step through all fields in a form and change the value if desired:
<code>
i = 0
FOR EACH Acrofield IN AcroForm.Fields
WITH AcroField
i = i + 1
DIMENSION fieldlist(i,2)
fieldlist(i,1)=acrofield.name
fieldlist(i,2)=acrofield.value
*--Change value if desired
*acrofield.value = "new value"
ENDWITH
ENDFOR
</code>

Tracy

</code>

Click to expand...

Just a note on your tags, this site uses the square backets.

Thank you for the info.

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

Thanks for the information on correct formatting for code. I didn't realize that I needed to use the square brackets. Can you fix it (replace < with square brackets)?

thanks,
Tracy

Tracy

Thanks for the information on correct formatting for code

Click to expand...

At the bottom of a new message there is a link to "process TGML". If you click on the link it show you the basic use of tag formatting being used on this site.

Can you fix it (replace < with square brackets)?

Click to expand...

Users do not have that hability, here. But don't worry your code is quite legible anyways. I have made that mistake many times here and at the "other place".

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.