Problema al imprimir CrystalReport

[D_a_n_n_y]

Tengo un problema con el CrystalReport, sucede que he codificado una aplicación para que me liste en un datagrid los documentos que estan pendientes de imprimir, y con un timer se valla imprimiendo cada 30 segundos si nadie le da en el boton imprimir. Cuando le das click al boton te abre el crystalReportViewer con toda la información y luego le das imprimir y todo OK. Sin embargo cuando el timer quiere imprimir automaticamente se imprime la plantilla pero sin ningún dato.
El CrystalReport esta enlazado a un DataSet de la aplicación, la cual envio como parametro tanto para mostrar como para imprimir.

Este es el código, tanto del mostrar como del de imprimir:

Sub mostrarReporte(ByVal ds As dsPedidos)
Dim impresion As New detalleSalida
impresion.SetDataSource(ds)
crv.ReportSource = impresion
End Sub

Sub imprimirReporte(ByVal ds As dsPedidos)
Dim impresion As New detalleSalida
impresion.SetDataSource(ds)
impresion.PrintToPrinter(1, False, 1, 1)
End Sub

En que me estoy equivocando??? Porque no imprime correctamente?

Inicialmente probe con este código, pero para imprimir me sale el dialogo de windows para elegir la impresora, cosa que no quiero, ya que la idea es q se imprima automaticamente en la impresora por defecto. Pero de esta forma si imprimia los datos.

Este
Sub imprimirReporte(ByVal ds As dsPedidos)
Dim impresion As New ReportDocument
impresion.SetDataSource(ds)
crv.ReportSource = impresion
crv.PrintReport()
End Sub

Probe tambien cambiando el impresion.PrintToPrinter(1, False, 1, 1) a true, colocar 0,0 .... todas las formas posibles..... sin embargo sigue imprimiendo sin datos.....

Como veran estoy desesperado con encontrar una solución.

Espero puedan reRsponderme pronto. De antemano muchas gracias...!!!

PD. Esta desarrollado en VB.NET 2010

[sebas_20_jv]

Hola Amigo! esta es la forma como yo imprimo los reportes espero te sirva...

//Crea un dataTable
Dim Dt As New DataTable()
//Llena los datos desde una consulta a la BD
Dt = ClsAdo.CargarDataSet()
//Instancio el reporte que voy a cargar
Dim rpt As New IRequisicionesAlmacen()
//Le paso el DataSet lleno al reporte
rpt .SetDataSource(Dt)
//Establezco la impresora por defecto del pc
rpt .PrintOptions.PrinterName = ""
//Si vas a imprimir todas las paginas debes colacar los dos ultimos valores en 0
rpt .PrintToPrinter(1, False, 0, 0)

Eso es todo espero te sirva...