样在VB程序中打印已经做好的水晶报表？ 急急！！在线等！！

Question

怎样在VB程序中打印已经做好的水晶报表？ 急急！！在线等！！
我已经看过了上面的一些关于水晶报表的帖子，搞不懂。最好能给我一个例子，简单一点。谢谢！！

Answer 1

Set CRY = CRYAT.OpenReport(App.Path + "\水晶报表\crystal.rpt")
这句话你没设好，要是已经加载CRYSTAL REPORTS 9 ACTIVEX DESIGNER RUN TIME LIBRARY和
CRYSTAL REPORTS VIEWER CONTROL9，“\水晶报表”是你放报表的文件夹名“\crystal.rpt”是你要打开的那个报表名！！！都写对不会有问题：）
9.0控件和库看以下的
用这个前提是你在水晶报表里已经建好了，然后在部件里填加CRYSTAL REPORTS VIEWER CONTROL9把它拖到你的窗口里，然后选工程---》引用----》CRYSTAL REPORTS 9 ACTIVEX DESIGNER RUN TIME LIBRARY再填加个打印按钮，在打印按钮里填加代码
Dim CRY As CRAXDRT.Report
  Dim CRYAT As CRAXDRT.Application
  Set CRYAT = New CRAXDRT.Application
  Set CRY = CRYAT.OpenReport(App.Path + "\水晶报表\crystal.rpt")
  Form1.CRViewer91.ReportSource = CRY
  Form1.CRViewer91.ViewReport注意Set CRY = CRYAT.OpenReport(App.Path + "\水晶报表\crystal.rpt")水晶报表是你保存好的文件夹，crystal.rpt是你要打开的报表文件就是你要打印的表：）

Answer 2

Dim sql As String
    CrystalReport1.ReportFileName = App.Path + "\cristal report\test.rpt"
    sql = "select * from classAccount  where classno='" & Trim(cmbclassno.Text) & "'"
    CrystalReport1.SQLQuery = sql
    CrystalReport1.PrintFileType = crptCrystal
    CrystalReport1.WindowState = crptMaximized
    CrystalReport1.PrintReport