关于打印是报错error 9 subscript out of range
请高手看看 那有问题啊 代码如下：
Private Function rep()
Dim StrSql As String
StrSql = "select * from purapp where jlrq >= '" & Me.date1.Value & "' and jlrq <='" & Me.date2.Value & "'"
Unload frmReport
MsgBox "===="
Call frmReport.OpenReport(StrSql, App.Path & "\" & sysInfo.strRptPath & Me.Tag & ".rpt", Me.Caption)
MsgBox "------->"
End Function



[解决办法]
看不到图，估计是水晶报表了的问题。