Visual Basic - crystal / VB6 Ayuda Please !!!

intento usar el Crystal reports con VB6. Puedo hacer que un informe se visualice , pero no se como hacer para imprimirlo sin visualizacion previa .. Me Ayudan.. ???
Este es el codigo para visualizarlo. Quisiera utilizar el mismo rtp
Como veran utilizo un rpt vacio y le cargo un recordset que armo en linea.

Dim Sys_Crystal As CRAXDRT.Application
Dim Sys_Reporte As CRAXDRT.Report
Dim Sys_database As CRAXDRT.Database

Set Sys_Crystal = New CRAXDRT.Application
Set Sys_Reporte = Sys_Crystal.OpenReport(App.Path & "\report1.rpt", 1)
Rs.MoveFirst
Sys_Reporte.Database.Tables(1).SetDataSource Rs, 3

CRV1.ReportSource = Sys_Reporte
Sys_Reporte.ReportTitle = "Este es el ReportTitle "
Sys_Reporte.ReportComments = " este es el mensaje que debe aparecer en comentarios !"
Sys_Reporte.ReportAuthor = "Este es el Mensaje que debe salir en Report Author "

CRV1.DisplayGroupTree = False
CRV1.ViewReport
CRV1.Visible = True

hola, si loq eu queires es imprimir de frente sin mostrar una vista previa. es facil.
solo cambia unas cuantas lineas

CRV1.ViewReport

por

CRV1.PrintReport

y listo

se imprime en la impresora predeterminda de tu maquina

chaup..