LOCAL loFile LOCAL lcFRX2AnyLibrary LOCAL lcAlias lcAlias = JUSTSTEM(Report_type) IF ALLTRIM(UPPER(report_type))="TRIAL.FRX" LOCAL ABC ABC="TRIALCHILD" SELECT 11 USE TRIALCHILD.FRX AGAIN SHARED ALIAS (ABC) lcFullName = ADDBS(SYS(2023)) + 'TC.FRX' COPY TO &lcFullName ENDIF SELECT 0 cnOUTPUT_SCREEN=1 #DEFINE cnEXCEL_OUTPUT_FULL_PLAIN 3 *--- !!! FRX - ia embedded into EXE report (FRX/FRT files) USE IN SELECT(lcAlias) USE &Report_type AGAIN SHARED ALIAS (lcAlias) *-- Save compiled FRX in a temporary folder lcReportFullName = ADDBS(SYS(2023)) + 'TEMP.FRX' *Logofullpath=ADDBS(SYS(2023))+"Logo.bmp" COPY TO '&lcReportFullName' *COPY FILE 'Logo.bmp' TO '&logofullpath' IF !FILE(lcReportFullName) =MESSAGEBOX('File ' + lcReportFullName + ' does not exist.', 16, 'Error') ELSE SET CLASSLIB TO FRX2Any loFile = CREATEOBJ('FRX2Any.PreviewFile') IF TYPE('loFile') = 'O' *-- Unlock FRX2Any loFile.UNLOCK('xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx') *-- Set up ToolBar settings *-- If this property is True FRX2Any's Report Previewer ToolBar will be displayed loFile.lToolBarDisplay = .T. *-- If this property is True Find button in FRX2Any's Report Previewer ToolBar will be represented loFile.lToolBarFind = .T. *-- If this property is True Print button in FRX2Any's Report Previewer ToolBar will be represented loFile.lToolBarPrint = .T. *-- If this property is True Zoom Scale combobox in FRX2Any's Report Previewer ToolBar will be represented loFile.lToolBarZoom = .T. *-- If this property is True Save to DOC button in FRX2Any's Report Previewer ToolBar will be represented loFile.lToolBarFRX2Word = .F. *-- If this property is True Save to XLS button in FRX2Any's Report Previewer ToolBar will be represented loFile.lToolBarFRX2Excel = .T. *-- If this property is True Save to RTF button in FRX2Any's Report Previewer ToolBar will be represented loFile.lToolBarFRX2RTF = .F. *-- If this property is True Save to HTML button in FRX2Any's Report Previewer ToolBar will be represented loFile.lToolBarFRX2HTML = .F. *-- If this property is True Save to BMP button in FRX2Any's Report Previewer ToolBar will be represented loFile.lToolBarFRX2IMAGE = .F. *-- If this property is True Save to PDF button in FRX2Any's Report Previewer ToolBar will be represented loFile.lToolBarFRX2PDF = .T. loFile.lIncludeFont = .T. loFile.lToolBarFRX2XML = .F. *-- Specifies FRX2Any's Report Previewer ToolBar vertical position loFile.nToolBarPositionTop = 25 *-- Specifies FRX2Any's Report Previewer ToolBar horizontal position loFile.nToolBarPositionLeft = 5 *-- Specifies FRX2Any's Report Previewer ToolBar Title loFile.cPrintPreviewToolBarTitle = "Customizable Preview, toolbar title" *-- Representing FRX2Any's Report Previewer form Title loFile.cPrintPreviewFormTitle = "Customizable Preview, form title" *-- Specifies number of the Page that will be displayed first. By default First Page will be displayed loFile.nDefaultPageNumber = 1 *-- Specifies FRX2Any's Report Previewer background color loFile.nBackGroundColor = RGB(75, 75, 75) *-- Force FRX2Any to display conversion process status loFile.lDisplayStatus = .T. *-- Specifies that output file will be displayed after creation loFile.nOutPutType = cnOUTPUT_SCREEN loFile.cExportFileName= Lcalias loFile.cSaveFolder= ALLTRIM(Reportfolder) loFile.SAVE(lcReportFullName) *lofile.save(lcfullname) loFile.RELEASE() ENDIF ENDIF>Download latest version of FRX2Any - 12.14.01. and note that loFile.lIncludeFont property is available only for PDF module