vb6 - サブレポートをロードするときのCrystal Reports 8.5エラー

Question

いくつかのレポートを印刷する VB6 アプリケーションがあります。レポートの 1 つに、コードによって挿入されたサブレポートがあります。

サブレポートをロードする関数は次のとおりです。

Public Function loadSubreport(destSection As CRAXDRT.Section, ByVal fileName As String, ByVal srLeft As Long, ByVal srTop As Long) As CRAXDRT.Report
        Dim sr As CRAXDRT.SubreportObject
        Set sr = destSection.ImportSubreport(CStr(fileName), CLng(srLeft), CLng(srTop))
        sr.BottomLineStyle = crLSNoLine
        sr.TopLineStyle = crLSNoLine
        sr.LeftLineStyle = crLSNoLine
        sr.RightLineStyle = crLSNoLine
        Set loadSubreport = sr.OpenSubreport
End Function

すべて正常に動作します。

しかし、時には次の行：

Set sr = destSection.ImportSubreport(CStr(fileName), CLng(srLeft), CLng(srTop))

を与えerror: Invaild procedure call or argumentます。

もう一度印刷してみると、うまくいきます。

エラー処理を追加して、同じコードを再度実行しようとしましたが、まだ機能していません。

誰でもこれについて手がかりを持っていますか?