THISFORM.oCrystal = CREATEOBJECT('Crystal.CrystalReport') WITH THISFORM.oCrystal .ReportFileName = 'reports\summary.rpt' .Destination = 0 .PrintReport() ENDWITH