PrintDocument怎么打印水晶报表喔

PrintDocument如何打印水晶报表喔?
PrintDocument如何打印水晶报表喔?

------解决方案--------------------
Dim RptDoc As ReportDocument = Me.LoadRpt(RptData)
If Not RptDoc Is Nothing Then
RptDoc.PrintToPrinter(1, True, 0, 0)
End If


'生成报表文件
Private Function LoadRpt(ByVal RptData As DataRow) As ReportDocument
Dim fileName As String = Application.StartupPath + "\ " + RptData( "cRepName ")
If Not File.Exists(fileName) Then
Throw New Exception( "报表文件不存在！ ")
End If

Dim RepDoc As New ReportDocument
RepDoc.Load(fileName)
Me.LoadRptData(RepDoc, RptData)
Me.SetParamToRpt(RepDoc, RptData)

Return RepDoc
End Function
------解决方案--------------------
错了,上面的方法是将水晶报表文件转化为一个ReportDocument,然后打印.
而不是转化为PrintDocument
------解决方案--------------------
提示错误:未定义类型"ReportDocument"
ReportDocument已经拖到了窗体上了....