Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Acrobat DLL
Message
 
To
02/09/2002 17:01:56
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Miscellaneous
Thread ID:
00696036
Message ID:
00698294
Views:
8
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
Previous
Reply
Map
View

Click here to load this message in the networking platform