#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 CD LEFT(SYS(16,0), RAT('\', SYS(16,0))) lcReportFullName = FULLPATH('..\..\Reports\Invoice.FRX') IF !FILE(lcReportFullName) =MESSAGEBOX('File ' + lcReportFullName + ' does not exist.', 16, 'Error') ELSE lcOutPutFileName = JUSTSTEM(lcReportFullName) lcOutPutFilePath = JUSTPATH(SYS(16,0)) + "\OutPut\" SET PATH TO ..\..\..\ lcFRX2AnyLibrary = 'FRX2Any' SET CLASSLIB TO &lcFRX2AnyLibrary IN FRX2Any.APP ALIAS FRX2Any loFile = CREATEOBJ('FRX2Any.PDFFile') IF TYPE('loFile') = 'O' *-- NOTE: loFile.cExportFileName should not include file extension. For example: loFile.cExportFileName = "ReportOutput" loFile.cExportFileName = lcOutPutFileName *-- NOTE: loFile.cSaveFolder should contain only path to the output file. For example: loFile.cSaveFolder = "c:\MyApp\MyOutPut\" loFile.cSaveFolder = lcOutPutFilePath *-- Specifies that output file will be displayed after creation loFile.nOutPutType = cnOUTPUT_SCREEN loFile.SAVE(lcReportFullName) loFile.RELEASE() ENDIF ENDIF