Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
URGENT: PDFCreator
Message
De
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:
01584340
Vues:
85
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform