Information générale
Catégorie:
COM/DCOM et 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??
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement