HOLA A TODOS...
ESTOY TRATANDO EN IMPRIMIR EN UN IMPRESORA EPSON LX-300, DE PUERTO COM, PERO NO HE PODIDO....
SOLO ME PASARON ESTE FRAGMENTO DE CODIGO EN CLIPPER Y NO SE COMO ENVIAR DATOS A ESTE PUERTO Y PARA ESTO UTILIZO IOLIB.....
ESPERO Y ME PUEDAN AYUDAR....
Y GRACIAS POR SU AYUDA....
public VERIFON:="SC5000"
//IF INIT_PORT(COM4,BPS9600,NO_PARITY,EIGHT_DATA_BITS,ONE_STOP_BIT,IRQ2,@cBUFFER)
IF ABRE_PORT(COM4,BPS1200,EIGHT_DATA_BITS,NO_PARITY,ONE_STOP_BIT,IRQ3,@cBUFFER,"TL850")
ALERT("COM NO DISPONIBLE ")
RETURN
ENDIF
cBANDA:=LEE(100,"SC5000",.T.)
?? cBANDA
wait "cband" //
//FECHA_PORT("SC5000")
RETURN
//*********
FUNCTION ABRE_PORT(nPORT,nVELOC,nDADOS,nPARIDADE,nPARADA,nIRQ,cBUFFER,cMODELO)
LOCAL lOK
//IRQ4:=4
lOK:=INIT_PORT(nPORT,nVELOC,nDADOS,nPARIDADE,nPARADA,nIRQ,@cBUFFER)
?"lok",lok
wait "lok"
SETRTS(.T.) //Habilita RTS se for TL270
RETURN(lOK)
