local lcDirectory, loListener, loShell
lcDirectory = sys(16)
lcDirectory = addbs(justpath(substr(lcDirectory, at(' ', lcDirectory, 2) + 1)))
loListener  = .NULL.
do (_reportoutput) with 5, loListener
loListener.TargetFileName = forcepath('MyReport.html', sys(2023))
loListener.QuietMode      = .T.
wait window 'Outputting to HTML...' nowait
erase (loListener.TargetFileName)
report form forcepath('rpt_dayreport2kotel.FRX', lcDirectory) NEXT 1 object loListener
* Display the results.
loShell = newobject('_shellexecute', '_environ.vcx')
loShell.ShellExecute(loListener.TargetFileName)

LOCAL oListener as ReportListener, oPC as Object
SET REPORTBEHAVIOR 90
_REPORTPREVIEW=[ReportPreview.app]
IF !FILE(_REPORTPREVIEW)
    MESSAGEBOX("File not found REPORTPREVIEW.APP")
    _REPORTPREVIEW=LOCFILE([ReportPreview.app])
    IF EMPTY(_REPORTPREVIEW) OR ISNULL(_REPORTPREVIEW)
        RETURN
    ENDIF
ENDIF
oPC = null
DO (_REPORTPREVIEW) with m.oPC
* set initial properties:
*oPC.currentPage      = 1            && start on page 4
*oPC.canvasCount      = 1            && 2 pages side-by-side
*oPC.zoomlevel        = 4            && 75%
oPC.Caption          = "Параметры ТГ. СТ. № 5"
oPC.Top=1
oPC.Left=1
oPC.Width=oGlobalForm.width-30
oPC.Height=oGlobalForm.height-50
oPC.toolbarIsVisible = .F.          && no toolbar, initially
oListener = CREATEOBJECT('ReportListener')
*oListener.OutputType=0
oListener.CurrentDataSession=1
oListener.ListenerType=1                        && preview
oListener.PreviewContainer = m.oPC
REPORT FORM rpt_parameters_tg ALL  OBJECT oListener NOWAIT
oPC.setCurrentPage( 1 )   
oPC.setCanvasCount( 1 )
oPC.setZoomLevel( 5 )