Imprimir reporte sin vista previa

[Monxu88]

Al final si conseguí imprimir el reporte, pero se ve que algo en la conexion no hago bien, parece sencillo pero no se que puede faltarme o que hago mal...

Con esto imprimo directamente el reporte
Dim ImprimirReport As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent

'InitializeComponent()
'Donde esta el informe
ImprimirReport.Load("Ruta\informeCR.rpt")
'Propiedades de la impresion y nombre impresora
ImprimirReport.PrintToPrinter(1, False, 0, 0)
ImprimirReport.PrintOptions.PrinterName = imp

El problema es que el reporte solo me muestra el primer registro de la tabla, ahora mismo haciendo pruebas ya no me salen ni los registros de la tabla...Me salen como colores como si fuesen de ejemplo..(red, blue.....)