加载subReport时Crystal Reports 8.5错误

Question

我有一个打印一些报告的VB6应用程序。其中一个报告按代码插入子报告。

加载子报表的函数是：

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。

如果再次尝试打印，它可以正常工作。

我尝试添加一些错误处理，再次运行相同的代码，它仍然无法正常工作。

任何人对此都有所了解吗？