Crystal Report - No me imprime el reporte en impresora especifica

Ayuda por fa, necesito cargar un reporte hecho en crystal report, le debo pasar parametros porq se conecta a un procedimiento almacenado.

Y utilizo este codigo para q me tome una impresora q yo le indique
Dim X As printer
Dim datos()
Dim Impresora As String
Dim agencia As String

csql = "select dc_impresora from " & Bd_Administracion & "..tb_usuario where dc_rut_cliente = '" + cRutcliente + "' and dc_usuario = '" + Trim$(cUsuario) + "'"
If SQL_Execute(csql) = 0 Then
If SQL_Fetch(datos) = 0 Then
Impresora = Trim$(datos(1))
If Trim$(datos(1)) = "" Then
MsgBox "Impresora no definida para este usuario ", vbInformation, Me.Caption
Exit Sub
End If
End If
End If

For Each X In Printers
If X.DeviceName = Impresora Then
Set printer = X
Exit For
End If
Next
y aqui le doy los parametros del stored procedure y me cargue e reporte y ko envie ami impresora
CrtAviso.Destination = crptToPrinter
CrtAviso.ReportFileName = gs_RptPath + "Imp_codigo_barra_new.rpt"
CrtAviso.StoredProcParam(0) = Trim$(cRutcliente)
CrtAviso.StoredProcParam(1) = Trim$(txtnumoc.Text)
CrtAviso.StoredProcParam(2) = CDbl(txtEmb.Text)
CrtAviso.StoredProcParam(3) = xsufijo + " "
CrtAviso.StoredProcParam(4) = CDbl(xtipo)
CrtAviso.StoredProcParam(5) = CDbl(xid)
CrtAviso.Connect = "DSN = import2000;UID = ;PW"
Print Action = 1
printer.EndDoc
End If

pero no activa el print
pero no me carga el report en el objeto pirnter no se q puedo o como lo puedo hacer

En versiones anteriores existe una opción de "Preparar impresora". Sucede que puede estar tildada la opción "Ninguna impresora". Lo que deshabilita el Print.

Slds.-