Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Pdf and nt4
Message
De
15/07/2002 10:38:13
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Titre:
Pdf and nt4
Divers
Thread ID:
00678682
Message ID:
00678682
Vues:
124
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
Fil
Voir

Click here to load this message in the networking platform