with frmmain.oleCrystal .DataFiles(0)=cFile1+'.DBF' .WindowTitle='Vista Preliminar' .ProgressDialog=.F. .Destination=0 .ReportFilename=cPath+(cReporte)+'.rpt' .PrintReport endwith Erase (cFile1)+'.*'