Visual Basic.NET - Imprimir rpt de crystal en VB NET

Hola amigos tengo una duda como se puede hacer en vb net imprimir un reporte de crystal report directamente a la impresora es decir tengo por ejemplo un reporte que se llama listado y en una forma tengo un bottom que le he puesto imprimir lo que deseo es que cuando se le de un click imprima inmediatamente el reporte sin hacer un preview sino que vaya directamente a la impresora.

Por su ayuda muy agradecido

Hola! Yo uso este codigo dentro del botón para imprimir.

Dim frm As FormConCrystal = New FormConCrystal
frm.PrintToPrinter(1, False, 0, 0)

Espero que te valga.

Gracias !!! me ha servido...

Hola Hermanos! yo uso el mismo codigo pero me sale un error; Missing parameter values!


Dim ParamCte As New ParameterDiscreteValue
ParamCte.Value = Nothing

ParamCte.Value = FrmFactura.TextNoFact.Text


Dim ParamList As New ParameterFields
Dim ParamTemp As ParameterField
ParamTemp = New ParameterField
ParamTemp.ParameterFieldName = "@campoCte" 'Aqui asignas el parametro que usas
ParamTemp.CurrentValues.Add(ParamCte)
ParamList.Add(ParamTemp)
Me.CrystalReportViewer1.ParameterFieldInfo = ParamList

Dim Factura As Facturas
pre_factura = New fact
pre_factura.SetDatabaseLogon("login", "clave")
Me.CrystalReportViewer1.ReportSource = Factura
Factura.PrintToPrinter(1, False, 0, 0)

Perdon hermanos mande mal una parte.

Dim Factura As Facturas
Facturas= New Facturas
Facturas.SetDatabaseLogon("login", "clave")
Me.CrystalReportViewer1.ReportSource = Factura
Factura.PrintToPrinter(1, False, 0, 0)

Espero se pueda obtener alguna ayuda con lo del error Missing parameter values!