Hola todos..
Estoy definiendo una impresi�n en una impresora epson serial. (tmu-950) Ya lo he hecho antes, imprimiendo en el ticket y en el testigo y todo ok. Hoy debo hacer otra impresi�n para que salga en el split (o sea la bandejita donde se coloca el papel a mano)
La rutina es esta..
Printer.RawMode := True;
Printer.BeginDoc;
// impresion en split
ImprimirCodigoEsc(chr(27)+'@'+CHR(27)+'c0'+chr(4)+chr(27)+'!'+chr(1)+chr(27)+'2');
nPorcIva:= 0.0;
nTotal:= 0.0;
qry.First;
While not qry.EOF do
begin
sCant:= AlineaDer(qry.FieldByName('cantidad').AsString, 6);
sDesc:=
AlineaIzq(UTF8ToCP850(qry.FieldByName('descripcion').AsString), 17);
sPrecio:=
AlineaDer(Format('%n',[qry.FieldByName('total').AsFloat]),10);
nPorcIva:= qry.FieldByName('porciva').AsFloat; // me quedo con
el ult iva xq son todos iguales
ImprimirCadenaRaw(sCant+' '+sDesc+' '+sPrecio);
nTotal += qry.FieldByName('total').asFloat;
qry.Next;
end;
qry.Close;
nNeto:= nTotal / (1+nPorcIva/100);
ImprimirCadenaRaw(' ');
ImprimirCadenaRaw(AlineaIzq('Neto s/impuestos: ',30) +
AlineaDer(Format('%n',[nNeto]),10));
ImprimirCadenaRaw(AlineaIzq('IVA: ',30)+
AlineaDer(Format('%n',[nTotal - nNeto]),10));
ImprimirCadenaRaw(AlineaIzq('TOTAL: ',30)+
AlineaDer(Format('%n',[nTotal]),10));
ImprimirCadenaRaw(' ');
Printer.EndDoc;
Printer.RawMode := false;La impresi�n sale por el split, pero NO hace un EJECT con el Enddoc, y si no presiono los botoncitos de form feed no sale el papel. Eso no ser�a tanto problema, perooo si imprimo inmediatamente despu�s.. la impresi�n no sale; queda con la impresora la luz de error. Si la apago/prendo si imprime sin problemas.
Ya no se que probar....
agradezco cq sugerencia!
(en clipper ten�a la misma rutina y sal�a el papel con la instrucci�n EJECT) byeeeeeeeeeeee