Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
URGENT: PDFCreator
Message
De
27/09/2013 18:29:17
 
 
À
27/09/2013 13:27:43
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows Server 2012
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Web
Divers
Thread ID:
01583899
Message ID:
01584367
Vues:
72
Did you try FoxyPreviewer? Two lines of codes, that's all you need to create PDFs. And it's totally free.

>>Which output file format you use?
>PDF
>
>Just wrote a quick function.
>FUNCTION PrintPDFReport
>LPARAMETERS lcReportFullName, lcOutPutFileName, lcExtraReportClauses
>
>#DEFINE cnOUTPUT_SCREEN 1
>#DEFINE cnOUTPUT_PRINT 2
>#DEFINE cnOUTPUT_EMAIL 3
>#DEFINE cnOUTPUT_FILE 4
>
>LOCAL loFile
>LOCAL lcReportFullName
>LOCAL lcOutPutFileName
>LOCAL lcOutPutFilePath
>LOCAL lcFRX2AnyLibrary
>
> lcFRX2AnyLibrary = 'FRX2Any'
> SET CLASSLIB TO &lcFRX2AnyLibrary IN g:\system\FRX2Any.APP ALIAS FRX2Any
>
> loFile = CREATEOBJ('FRX2Any.PDFFile')
>
> IF TYPE('loFile') = 'O'
>
> loFile.UNLOCK('xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx') && Unlock FRX2Any
>
> loFile.cExportFileName = JUSTFNAME(lcOutPutFileName)
>
> loFile.cSaveFolder = JUSTPATH(lcOutPutFileName)
>
> loFile.lDisplayStatus = .T. && Force FRX2Any to display conversion process status
>
> loFile.nOutPutType = cnOUTPUT_SCREEN && Specifies that output file will be displayed after creation
>
> loFile.lTranslateFontStyle = .T.
>
> loFile.nCodePage = 1252
>
> loFile.SAVE(lcReportFullName)
>
> loFile.RELEASE()
> ENDIF
>
>ENDFUNC
SET CLASSLIB TO
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform