cuando decis que en un reporte es que en a misma forma este el reporte, porque si no lo que hace crystal es abrir una ventana propia y de ahi la podes imprimir, no se si es la segunda opcion con este lineas de codigo lo podes hacer
CRreportes.Reset
CRreportes.DiscardSavedData = True
bd = "\\PC_NUILA\Proyecto Inventario Activos\BD\asiginve.mdb"
CRreportes.DataFiles(0) = bd
CRreportes.ReportFileName = App.Path + "\reportefuentes.rpt"
't = 2
'CRreportes.ReplaceSelectionFormula ("{empleado.cod_empleado} = '" & t & "'")
CRreportes.WindowState = crptMaximized
CRreportes.Destination = 0
CRreportes.WindowShowPrintSetupBtn = True
CRreportes.Action = 1
ojala que sea esto.