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

Direct provide print command to printer with out print dialog box in VB.NET

Dim p As New System.Diagnostics.ProcessStartInfo()
p.Verb = "print"
p.WindowStyle = ProcessWindowStyle.Hidden
p.FileName = "C:\MyFile.Doc"
p.UseShellExecute = True
System.Diagnostics.Process.Start(p)