Required VFP9.
Export Report to HTML with Report Listener.


SET CLASSLIB TO HOME() + 'FFC\_REPORTLISTENER' ADDITIVE
oHTMListener = CREATEOBJECT('HTMLListener')
IF TYPE('oHTMListener')='O'
lcFile = Putfile('','','html')
oHTMListener.TargetFileName = lcFile
oHTMListener.quietmode=.T.
REPORT FORM (arquivo_report) OBJECT oHTMListener
_str=FILETOSTR(lcFile)
else
messagebox('Object HTMLListener no create','error')
endif