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已经拖到了窗体上了....
