Set REPORTBEHAVIOR 90 Local loListener loListener = .Null. Do (_ReportOutput) With 5, loListener If Directory("HTMLReports",1) = .F. Then Mkdir "HTMLReports" Endif Local lcFileName lcFileName = "Report_" + Dtos(Date()) + "_" + Time() + ".htm" loListener.TargetFileName = "HTMLReports\" + lcFileName loListener.Quietmode = .T. Report Form YourReportName Object loListenerThats it