I get the following error when I try to do print a report using CR.

OLE IDispatch exception code 0 from Crystal Reports AcriveX Designer.The Remaining text does not appera to be part of the formula.

Ltempdir=GETENV('Temp')

COPY TO (lTempDir)+'\Archive.dbf' TYPE fox2x

oCR=CREATEOBJECT('CrystalRuntime.Application')
oRpt=Ocr.OpenReport(startdir+'\reports\archive.rpt')


oDB= oRPT.Database
ocDBT=oDB.Tables()
oDBT=ocDBT.Item(1)
oDBT.Location=(lTempDir)+'\Archive.dbf'
IF oRpt.HasSavedData
oRpt.DiscardSavedData()
endif


ORpt.PrintOut()