Jon's right. You need to rewrite your code to use the RDC. The OCX has been depricated. There are several articles on my web site that will get you started with the RDC.


>Hi all,
>
>This procedure is to print a crystal report version 7 without any problems at all, but I ugraded to version to version 11, I have this error message :
>
>Crystal report error ! Error number 20525
>Error message : Unable to load report
>
>exactly from the codes trapping error section as :
>
>due to the error is different from 0 ( zero )
>
>

>
>IF .LastErrorNumber <> 0
>        _SCREEN.MOUSEPOINTER = 0
>        lcMsg = "Crystal Report Error! Error nunmber: "+ALLTR(STR(.LastErrorNumber))+CHR(13)+ ;
>            "Error Message: "+.LastErrorString
>        oApplication.Update_Error(.LastErrorNumber, lcMsg, MESSAGE(1), LINENO(1), PROGRAM(), ALIAS(), ORDER(), SYS(18), WONTOP())
>        RETURN
>    ENDIF
>
>
>
>
>PROCEDURE DoPrint
>*================================================
>LPARAMETERS tcReportName, tlShowGroupTree, tcWindowTitle
>LOCAL loCrystalReport, lnResult, lnHandle, lcMsg
>LOCAL lcCR_DSN, lcCR_USR, lcCR_PWD, lcCR_SourcePath, lcFile, lcMsg
>
>IF TYPE("loCrystalReport")<>"O" AND !ISNULL(loCrystalReport)
>    loCrystalReport = CREATEOBJECT("Crystal.CrystalReport")
>ENDIF
>
>lcCR_DSN = Mem_DataSource_Name        &&GetIni("REPORTS", "DSN", gcIni)
>lcCR_USR = gcCR_USR                    &&GetIni("REPORTS", "USR", gcIni)
>lcCR_PWD = gcCR_PWD                    &&GetIni("REPORTS", "PWD", gcIni)
>
>
>lcCR_SourcePath    = GetIni("REPORTS", "SourcePath", gcIni)
>
>lcFile    = lcCR_SourcePath + tcReportName
>IF !FILE(lcFile)            && si le fichier cystal report n'existe pas
>
>    lcMsg = ;
>        "Error : File not found!"         + CHR(13) + ;
>        "Report: '" + lcFile             + CHR(13) + ;
>        "Erreur : Fichier non trouvé!"     + CHR(13) + ;
>        "Rapport: " + lcFile
>
>    MESSAGEBOX(lcMsg,16,IIF(!EMPTY(tcWindowTitle),tcWindowTitle, "File not found!"))
>    loCrystalReport = NULL
>    RELEASE loCrystalReport
>
>    RETURN .F.
>ENDIF
>
>WITH loCrystalReport
>
>    *.CONNECT = '"'+"DSN = "+lcCR_DSN+";UID = "+lcCR_USR+";PWD = "+lcCR_PWD+";DSQ = "+lcCR_DSN+'"'
>    *.CONNECT             = '"'+"dsn="+gcCR_DSNNative+"; uid="+lcCR_USR+"; pwd="+lcCR_PWD+"; dsq="+Mem_SQLDatabase+'"'
>    .CONNECT             = "dsn="+lcCR_DSN+"; uid="+lcCR_USR+"; pwd="+lcCR_PWD+"; dsq="+Mem_SQLDatabase
>
>
>    .ReportFileName    = lcCR_SourcePath + tcReportName
>    .DiscardSavedData  = 1
>    *    .WindowHeight      = 500
>    *    .WindowWidth       = 580
>    .WindowLeft        = 100
>    .WindowMaxButton   = .T.
>    .WindowBorderStyle = 2        &&sizable
>    .WindowControlBox  = .T.
>
>    .WindowTitle         = tcWindowTitle
>    .WindowShowGroupTree = .T.
>    .ProgressDialog      = .T.
>    .Destination         = 0 && Window
>
>    *.Action = 1
>    lnResult = .PrintReport()
>
>
>    IF .LastErrorNumber <> 0
>        _SCREEN.MOUSEPOINTER = 0
>        lcMsg = "Crystal Report Error! Error nunmber: "+ALLTR(STR(.LastErrorNumber))+CHR(13)+ ;
>            "Error Message: "+.LastErrorString
>        oApplication.Update_Error(.LastErrorNumber, lcMsg, MESSAGE(1), LINENO(1), PROGRAM(), ALIAS(), ORDER(), SYS(18), WONTOP())
>        RETURN
>    ENDIF
>
>    lnHandle = GetActiveWindow()
>    DO WHILE IsWindow(lnHandle )<>0
>        DOEVENTS
>        *--just in case...
>        IF LASTKEY()=27
>            EXIT
>        ENDIF
>    ENDDO
>
>ENDWITH
>
>loCrystalReport = NULL
>RELEASE loCrystalReport
>
>RETURN
>
>

>
>
>Please help to explain why is caused this error?
>That could be from : OLECONTROL, ACTIVE X or the codes
>is not acceptable for CR11 report.
>
>Any advices or suggestions would be greatly apppreciated.
>TIA