Crystal Report - imprimir directa

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