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。

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

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

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

加载subReport时Crystal Reports 8.5错误

0 个答案: