Visual Basic - CRYSTAL NO IMPRIME

Hola amigos, mi problema es el siguiente.
Tengo un reporte hecho en crystal (versión de VB 5.0), funciona sin problemas e incluso muestra la información en vista preliminar, pero al momento de hacer clicl en la impresora (enviar a imprimir) no imprime. No se por que. Si trato de imprimir directo en la impresora entrega el mensaje que no la encuentra ...
El codigo de impresión es el siguiente:
FrmVentas.CR1.PrinterName = Trim(ImpresoraDocumento(4))
FrmVentas.CR1.PrinterDriver = Trim(DriverDocumento(4))
FrmVentas.CR1.PrinterPort = Trim(PuertoDocumento(4))
FrmVentas.CR1.DataFiles(0) = Trim(DirectorioBD) + Trim(NombreBD)
FrmVentas.CR1.ReportFileName = Trim(DirectorioReportes) + "cuentacorriente.rpt"
FrmVentas.CR1.SelectionFormula = "{Clientes.CRut} = '" & Trim(Codigo.Text) & "'"
FrmVentas.CR1.Formulas(0) = ""
FrmVentas.CR1.SortFields(0) = ""
FrmVentas.CR1.SortFields(1) = ""
FrmVentas.CR1.Action = 1

Hago el cambio de impresora porque tengo instaladas 4 impresoras ya que en cada una de ellas tengo diferente tamaño de papel.

Aveces imprime sin problemas, no entiendo por que ?

Gracias