oEngineObject = CREATEOBJECT("Crystal.CRPE.Application")
oReport = oEngineobject.OpenReport(cReportname)
oReport.ParameterPromptingEnabled=.F.
oReport.ParameterFields.Item(1).SetCurrentValue({27/10/01})
Wait wind Dtoc(oReport.ParameterFields.Item(1).CurrentValue) && Just checking
oReport.Printout(0,1,1,1,100)
any idea how to suppress the Printing Dialog?, it's not really a problem but would finish it off nicely
regards
Pete