Hello SIr,

I did so. Every things runs fine. But when at last I close the report window, I gives an error that "Operator Type Mismatch".
I tried it hard, but not able to trace the source. Is there any bug in FRX2ANY source code.

I am launching FRX2AMY from Custompreview.prg. MY custompreview.prg is as follows....Please Note that the Varible Report_type assumes various values based on my choice of Variable. eg "SUBLEDGER.FRX".



#DEFINE cnPREVIEW_WINDOW_TOOLBAR_NOTDOCKED -1
#DEFINE cnPREVIEW_WINDOW_TOOLBAR_TOP 0
#DEFINE cnPREVIEW_WINDOW_TOOLBAR_LEFT 1
#DEFINE cnPREVIEW_WINDOW_TOOLBAR_RIGHT 2
#DEFINE cnPREVIEW_WINDOW_TOOLBAR_BOTTOM 3
#DEFINE cnPREVIEW_WINDOW_STATE_NORMAL 0
#DEFINE cnPREVIEW_WINDOW_STATE_MIN 1
#DEFINE cnPREVIEW_WINDOW_STATE_MAX 2


LOCAL loFile
LOCAL lcFRX2AnyLibrary
LOCAL lcAlias
lcAlias = JUSTSTEM(Report_type)
SELECT 0
*--- !!! TRIAL.FRX - ia embedded into EXE report (FRX/FRT files)
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.gif"

COPY TO &lcReportFullName
COPY FILE Logo.gif TO &logofullpath
USE IN SELECT(lcAlias)
IF !FILE(lcReportFullName)
=MESSAGEBOX('File ' + lcReportFullName + ' does not exist.', 16, 'Error')
ELSE
lcFRX2AnyLibrary = 'FRX2Any'

SET CLASSLIB TO &lcFRX2AnyLibrary

loFile = CREATEOBJ('FRX2Any.PreviewFile')

IF TYPE('loFile') = 'O'

loFile.UNLOCK('xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx')


loFile.lToolBarDisplay = .T.



loFile.lToolBarFind = .T.



loFile.lToolBarPrint = .T.



loFile.lToolBarZoom = .T.



loFile.lToolBarFRX2Word = .F.



loFile.lToolBarFRX2Excel = .F.



loFile.lToolBarFRX2RTF = .F.



loFile.lToolBarFRX2HTML = .F.



loFile.lToolBarFRX2IMAGE = .F.



loFile.lToolBarFRX2PDF = .T.



loFile.nToolBarDockType = cnPREVIEW_WINDOW_TOOLBAR_NOTDOCKED



loFile.nToolBarPositionTop = 30



loFile.nToolBarPositionLeft = 5



loFile.cPrintPreviewToolBarTitle = "Tool Bar"



loFile.cPrintPreviewFormTitle = "Report"



loFile.nDefaultPageNumber = 1



loFile.nBackGroundColor = RGB(75, 75, 75)



loFile.nWindowState = cnPREVIEW_WINDOW_STATE_MAX



loFile.lMaxButton = .T.



loFile.lMinButton = .T.



loFile.lDisplayStatus = .T.





loFile.cToolTipTextPrint = 'Custom ToolTipText for Print button'

loFile.cToolTipTextFind = 'Custom ToolTipText for Find button'

loFile.cToolTipTextFRX2Word = 'Custom ToolTipText for FRX2Word button'

loFile.cToolTipTextFRX2RTF = 'Custom ToolTipText for FRX2RTF button'

loFile.cToolTipTextFRX2Excel = 'Custom ToolTipText for FRX2Excel button'

loFile.cToolTipTextFRX2HTML = 'Custom ToolTipText for FRX2HTML button'

loFile.cToolTipTextFRX2IMAGE = 'Custom ToolTipText for FRX2Image button'

loFile.cToolTipTextFRX2PDF = 'Custom ToolTipText for FRX2PDF button'

loFile.cToolTipTextZoom = 'Custom ToolTipText for Zoom combobox'



loFile.cToolTipTextFirstPage = 'Custom ToolTipText for FirstPage button'

loFile.cToolTipTextPrevPage = 'Custom ToolTipText for PrevPage button'

loFile.cToolTipTextNextPage = 'Custom ToolTipText for NextPage button'

loFile.cToolTipTextLastPage = 'Custom ToolTipText for LastPage button'



loFile.cLocalization = 'Localization.DBF'

*-- NOTE: loFile.cExportFileName should not include file extension. For example: loFile.cExportFileName = "ReportOutput"
loFile.cExportFileName = Lcalias

*-- NOTE: loFile.cSaveFolder should contain only path to the output file. For example: loFile.cSaveFolder = "c:\MyApp\MyOutPut\"
loFile.cSaveFolder = "C:\"
loFile.SAVE(lcReportFullName)
loFile.RELEASE()

ENDIF



ENDIF
Return