有关打印问题求教！

Question

我用水晶报表制作工具制作了报表，打印时出现问题。实现打印的程序代码如下，command2是“打印”按钮，运行显示CR1找不到数据成员或方法，请大家帮我看看错在哪里！谢谢！
Private Sub Command2_Click()
    CR1.DataFiles(0) = xtlj & "dwxx.mdb"
    pbwjm = xtlj & "rpt\" & pbwjm    'pbwjm：报表文件名
    CR1.ReportFileName = pbwjm    
    CR1.PrintReport
End Sub