Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Acrobat DLL
Message
 
À
02/09/2002 17:01:56
Steven Dyke
Safran Seats USA
Texas, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Titre:
Divers
Thread ID:
00696036
Message ID:
00698294
Vues:
7
Hi,

Try this before to generate your PDF and good luck


FUNCTION ADOBE_INIT(pcFILENAME, pcTITRE)
*Fonction pour initialiser PDFWriter
IF EMPTY(pcTITRE)
pcTITRE = ""
ENDIF
*********************************************************
*Si WIN95, 98, ME
* Dans WIN.ini
*[Acrobat PDFWriter]
*PDFFilename=C:\temp\RAPPORT.pdf
*bDOCINFO=0
*Si WinNT, Win2000, WINXP
*Dans régistres:
*HKEY_CURRENT_USER/Software/Adobe/Acrobat PDFWriter/
*bDocInfo="0"
*PDFFilename="C:\TEMP\RAPPORT.pdf*"
* Note: * = Permanent
*********************************************************
IF "95" $ UPPER(OS(1))
PUTPROSTRG("Acrobat PDFWriter", "PDFFilename", pcFILENAME)
PUTPROSTRG("Acrobat PDFWriter", "bDocInfo", "0")
ELSE
LOCAL oREG
oREG = CREATEOBJECT("REGISTRY")
WITH oREG
.SetRegKey("PDFFILENAME", ;
pcFILENAME, ;
"Software\Adobe\Acrobat PDFWriter", ;
BITSET(0,31)+1, ; &&HKEY_CURRENT_USER
.T.)

.SetRegKey("bDocInfo", ;
"0", ;
"Software\Adobe\Acrobat PDFWriter", ;
BITSET(0,31)+1, ; &&HKEY_CURRENT_USER
.T.)

*Ne pas afficher le PDF, sinon "1"
.SetRegKey("bExecViewer", ;
"0", ;
"Software\Adobe\Acrobat PDFWriter", ;
BITSET(0,31)+1, ; &&HKEY_CURRENT_USER
.T.)

*!*.SetRegKey("StartDocTitle", ;
*!*pcTITRE, ;
*!*"Software\Adobe\Acrobat PDFWriter", ;
*!*BITSET(0,31)+1, ; &&HKEY_CURRENT_USER
*!*.T.)

*!*.SetRegKey("szTITLE", ;
*!*pcTITRE, ;
*!*"Software\Adobe\Acrobat PDFWriter", ;
*!*BITSET(0,31)+1, ; &&HKEY_CURRENT_USER
*!*.T.)
ENDWITH
ENDIF
ENDFUNC
Le travail est un moyen, pas une fin.

Louis Hudon
Hydro-Québec
Informatique en Équipement
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform