Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Pdf and nt4
Message
From
15/07/2002 10:38:13
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Pdf and nt4
Miscellaneous
Thread ID:
00678682
Message ID:
00678682
Views:
125
The following code works with win98 and win2k but NOT nt4 sp6.

SET SAFETY OFF
IF !iscomobject('pdfdistiller.pdfdistiller.1')
MESSAGEBOX("Acrobat Distiller is not Installed!!",16,"PDF Test")
RETURN
ENDIF
IF !DIRECTORY("c:\~~~pdf_test")
MD "c:\~~~pdf_test"
ENDIF
psfilename = "c:\~~~pdf_test\input.ps"
pdfresult = "c:\~~~pdf_test\output.pdf"
SET PRINTER TO NAME "Acrobat Distiller"
USE tt_cust
REPORT FORM custlist TO FILE (psfilename) NOCONSOLE
ox = CREATEOBJECT('pdfdistiller.pdfdistiller.1')
retval_ox = ox.filetopdf(psfilename, pdfresult, "")
IF retval_ox = 1
DELETE FILE (psfilename)
ENDIF
CLEAR ALL
SET SAFETY ON
SET PRINTER TO DEFAULT
RETURN

What's up with nt4??
Next
Reply
Map
View

Click here to load this message in the networking platform