Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Contolling Adobe Acrobat reader from VFP
Message
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00403587
Message ID:
00405481
Views:
19
Do you know what I have to install to be able to CreateObject("AcroExch.App")?

I have been able to create PDF files via a printer driver, I just need to be able to display contents on my own forms. I've downloaded/installed Reader 4.05 and SDK.

>*SET PROCEDURE TO WWAPI ADDITIVE && west-wind class
>SET PROCEDURE TO WWPDF ADDITIVE && west-wind class
>
>myreport_name="test.frx"
>
>oPDF=CREATE("wwPDF40")
>*- Pdf path and name - sys(2023) current temp directory
>lcOutfile=SYS(2023)+"\"+LEFT(myreport_name),4)+RIGHT(SYS(3),4)+".pdf"
>
>*- Call a method of Rick's class
>lcpdf=oPDF.PrintReport(ALLTRIM(myreport_name),lcOutfile,"")
>
>*- View Document .Using Acroreader,can be used other window
>IF TYPE("oAcroRead")<>"O"
> oAcroRead=CREATEOBJECT("AcroExch.app")
>ENDIF
>IF TYPE("oAcroRead")=="O"
> oAcroRead.SHOW
> IF TYPE("oAcrodoc")<>"O"
> oAcrodoc=CREATEOBJECT("AcroExch.Avdoc")
> ENDIF
> IF TYPE("oAcrodoc")=="O"
> oAcrodoc.SetviewMode(1)
> oAcroRead.MenuItemExecute("ShowHideBookMarks")
> oAcrodoc.OPEN(lcOutfile,"MY REPORT")
> oAcroRead.Maximize(.T.)
> oAcroRead.MenuItemExecute("ShowHideBookMarks")
> ELSE
> WAIT WIND "Acrobat View Server Not Created" TIMEOUT 3
> ENDIF
>ELSE
> WAIT WIND "Acrobat Server Not Created" TIMEOUT 3
>ENDIF
>
>Juan C.
Nigel B Coates
NBC Software Services
Dublin, Ireland.
eMail: Nigel.Coates@NBCSoftware.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform