Information générale
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Network:
Windows 2008 Server
>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
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement