General information
Category:
COM/DCOM and OLE Automation
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
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only