Visual Basic - Imprimir Directamente Crystal

hola!

necesito imprimir un informa en crystal, yo normalmente lo hago con un viewer:
Set Reporte = Apli.OpenReport(App.Path & "\Presup.rpt")
CR.ReportSource = Reporte
CR.ViewReport

preo necesito que se imprima del tiron, sin preguntarme la impresora ni nada, y además sin que se vea el impreso.

trabajo con VB6 y Crystal Report XI

Sería algo así:

Set Reporte = Apli.OpenReport(App.Path & "\Presup.rpt")
CR.ReportSource = Reporte
CR.PrintOut False '<== de esta forma se imprime en la impresora predeterminada

Espero te sirva

Gracias! si que me ha servido, pero en vez de poner CR.PrintOut False, he tenido que poner Reporte.PrintOut False

yo quiero imprimir un reporte que tengo en crystal report 9.0 en VB 6.0

Set Reporte = Apli.OpenReport(App.Path & "\Presup.rpt")

que es el apli ?

Hola, aunque medio tarde, a lo mejor a alguien le sirve.
Apli hace referencia al objeto CRAXDRT.Application