Visual Basic - Problema VB + CRYSTAL

Ante todo gracias por vuestra ayuda que podáis darme.

Mediante el código:

--------------------------------------------
LISTADO.ReportFileName = "nombrearchivo.rpt"
LISTADO.Destination = crptToWindow
LISTADO.Connect = "ODBC; DSN=nombre; UID=usuario; PWD=contraseña; DATABASE=basededatos"
LISTADO.Action = 1 '*SQL
--------------------------------------------

a la hora de mostrarlo, sean los registros que sean, aparece una ventana con nombre "ACTIVEX" y una "barra de proceso". Pues se queda ahí y tarda en imprimir unos 5 minutos. ¿Alguien sabe el porqué y como puedo solucionarlo?

Muchas gracias

Gracias por tu respuesta

Pero si lo muestro por pantalla en vez de imprimirlo directamente, hace exactamente lo mismo...

¿Alguna otra idea?

Gracias

Gracias de nuevo

SI, eso ya lo he probado y nada de nada, tanto con una HP 4100 que con una HP 2300 y las 2 me hacen lo mismo, ya sea por pantalla que por impresora.