loListener = .NULL. do (_reportoutput) with 5, loListener loListener.TargetFileName = 'D:\kpshnd\result\2004\star.htm' loListener.QuietMode = .T. Report Form (Alltrim(thisform.file.value)) Preview OBJECT lolistener RUN /n Explorer.exe D:\kpshnd\result\2004\star.htm