Create Print Preview Form For Cystal Report Using CrystalReportViewer

Dim LReport As CrystalDecisions.CrystalReports.Engine.ReportDocument
Public WriteOnly Property PassReport() As CrystalDecisions.CrystalReports.Engine.ReportDocument
Set(ByVal PassReport As CrystalDecisions.CrystalReports.Engine.ReportDocument)
LReport = PassReport
End Set
End Property
Private Sub FrmPreview_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
CrystalReportViewer1.ReportSource = LReport
End Sub