.Net下水晶报表9.0的打印预览是怎么用代码实现的?

[longbow74]

?

[dengbin99]

偶问过了，没人回答!

[longbow74]

那你怎么办的

[软猫克鲁]

Imports CrystalDecisions.Shared

Public Class FrmReport
Inherits System.Windows.Forms.Form

#Region

Public Sub New()
MyBase.New()

InitializeComponent()


End Sub

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

Private components As System.ComponentModel.IContainer

Friend WithEvents CrystalReportViewer1 As CrystalDecisions.Windows.Forms.CrystalReportViewer
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.CrystalReportViewer1 = New CrystalDecisions.Windows.Forms.CrystalReportViewer()
Me.SuspendLayout()
'
'CrystalReportViewer1
'
Me.CrystalReportViewer1.ActiveViewIndex = -1
Me.CrystalReportViewer1.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right)
Me.CrystalReportViewer1.DisplayGroupTree = False
Me.CrystalReportViewer1.Name = "CrystalReportViewer1"
Me.CrystalReportViewer1.ReportSource = Nothing
Me.CrystalReportViewer1.Size = New System.Drawing.Size(1016, 741)
Me.CrystalReportViewer1.TabIndex = 0
'
'FrmReport
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
Me.ClientSize = New System.Drawing.Size(1016, 741)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.CrystalReportViewer1})
Me.Name = "FrmReport"
Me.Text = "Crystal Report Form"
Me.ResumeLayout(False)

End Sub

#End Region
End Class

Public Class CrstlRpt
Friend Frm As FrmReport

Public Sub New()
Frm = New FrmReport()
End Sub

Private Sub ReportDisplay(ByVal Report As ReportDocument)
Frm.CrystalReportViewer1.ReportSource = Report
Frm.ShowDialog()
End Sub
End Class

调用。
Dim CR As New CrstlRpt()
CR.ReportDisplay(Report)