报表打印问题（水晶报表）

Dim rs As New ADODB.Recordset
Dim rpt As New CrystalReport1
'report为一个form，里面有一个名为crviewer91的水晶报表浏览器
'我在另一个form中写了如下几句：
rpt.Database.SetDataSource rs
Report.CRViewer91.ReportSource = rpt
Report.CRViewer91.ViewReport
Report.CRViewer91.PrintReport
这样写一点反应也没有！
可是如果我在report里放一个command，然后写上CRViewer91.PrintReport，却可以！
这到底是为什么？？？