Crystal Report - reportes version 8 a 11

Problema:

Tengo reportes (.rpt) hechos en crystal 8, los llamo a mi aplicación a través del OCX de crystal ya que no necesito visualizarlos y necesito mandarlos directamente a la impresora, voy a migrar a crystal 11 y me doy cuenta que ya no existe el control OCX, cómo le hago para poder llamar esos reportes y no verlos en el viewer sino mandarlos a imprimir directamente??

Saludos y gracias

me paso lo mismo solo que tuve que usa el vendito viewer del 11
mi problema ahora es que usaba esta codigo para c rpt 8
fecha.Show vbModal
Dim datos As New Origen' clase para zctulizar parametro fecha
Dim stintervalo As String
datos.GrabaFechas mFechaI, mfechaf
stintervalo = " Desde: " & mFechaI & " Hasta " & mfechaf
MDIlab.CrystalReport1.Formulas(0) = "Fechas = """ & stintervalo & """"
MDIlab.CrystalReport1.ReportFileName = App.Path & "TotalPorTipoServicio.rpt"
MDIlab.CrystalReport1.WindowShowRefreshBtn = True
MDIlab.CrystalReport1.WindowState = crptMaximized
MDIlab.CrystalReport1.Action = 1
Set datos = Nothing
Exit Sub

AHORA USO ESTE en rpt 11
mReporteName= "Mireporte.rpt"
Dim cnn1 As ADODB.Connection
Dim objApplication As New CRAXDDRT.Application
Dim objReport As New CRAXDDRT.Report
.......coneccion
Dim datos As New Origen
Dim stintervalo As String
datos.GrabaFechas mFechaI, mfechaf
Set objReport = objApplication.OpenReport(App.Path & "" & mReporteName)
crVisor.ReportSource = objReport
crVisor.ViewReport
ahora necesito pasar el intervalo de fecha a "Mireporte" y no he podido
si alguen save como los paso con este control "Helpme"