problemas con impresoras okidata usb

[lafug]

Amigos,

Tengo 2 impresoras Okidata ml320, de aquellas que solo se conectan vía USB, conectadas en mismo PC, una para imprimir facturas y otra Boletas, desde el programa las capturo y las dejo asignadas para cada documento con la función aGetPrinters(), luego todo funciona OK (PRINTER oPrn to cPuerto) ;, el problema es que cuando se apaga el PC y se inicia el programa al día siguiente ya no imprime y tengo que volver a probar cambiando de USB los cables, si alguien tiene alguna experiencia con esto agradeceré vuestros comentarios.

[jbrita]

haslo asi
cImpresora:= tOleAuto():New("ADODB.Recordset")
cImpresora:CursorLocation(3)
cImpresora:Open("SELECT * FROM impresora WHERE ma_codi='"+ AllTrim(cPuerto)+ "' ORDER BY ma_codi", oConexion, 1, 3)
If (cImpresora:RecordCount) # 0
cPrn:=AllTrim(ADOField(cImpresora,"ma_desc"))
Endif
ADO Close cImpresora

oPrn:=PrintBegin("Impresión de documentos",.F.,lPrv,cPrn,.T.)

saludos

[lafug]

Gracias por tu respuesta

Como obtengo el oConexion, significa que antes debería abrir una conexion con ADO? y a que servidor? o solo defino como local "oConexion"?

Gracias por los comentarios

[acuellar]

Lafug

Lo mejor es compartirla ambas Ej. OKIFAC y OKIBOL
Enviar asi:

Code: Select all  Expand view

PrintFileRaw( "\\NOMBREPC\OKIFAC", ArchivoAimprimir )
 

Saludos,

Adhemar

[jbrita]

Amigo lo que yo hago es guardar seleccionar la impresora al documento q corresponda.
por ejemplo tengo una tabla llamada impresora

codigo detalle Impresora
01 Factura aqui le pongo la impresora q corresponda
02 Boleta
03 Guias
04 Etc

y luego la llamo segun que documento necesito

cual es tu correo
saludos

[lafug]

Gracias a todos por sus respuestas, voy a seguir probando

jbrita, mi correo :luisalfonsofuentesg@gmail.com