Impresion directa con crystal reports

[JOMRAS]

Hola Tengo el mismo problema, necesito enviar a imprimir directamente el resporte sin pasar por el crystalviewer pero ademas necesito pasarle parametros al reporte, podrian ayudarme... este es el codigo que estoy utilizando

Try
Dim report As New ReportDocument

report.PrintOptions.PrinterName = pd.PrinterSettings.PrinterName

report.Load(dir & "\Reportes\Report1.rpt")

report.PrintToPrinter(1, True, 1, 2)
Catch engEx As LogOnException
MessageBox.Show _
("Parámetros de conexión incorrectos. Compruebe el nombre de usuario y la contraseña.")
Catch engEx As DataSourceException
MessageBox.Show _
("Error al conectarse a la base de datos.")
Catch engEx As EngineException
MessageBox.Show(engEx.Message)
End Try