Problema al imprimir CrystalReport

[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...