Cita:
Empezado por juanelo
Preguntas:
¿se abre correctamente el dispositivo (impresora)?
¿La impresora a la que madas está correctamente instalada ?
¿si es interfaz usb, está correctamente asignado el puerto en la impresora (lista de impresoras)?
|
Si a todo... ;-)
De hecho, desde el mismo driver de la impresora (Propiedad de la Impresora en entornos Windows), tiene una solapa "Herramientas" con la opción "Enviar fichero", desde el cual cargo y subo el mismo archivo script y lo imprime al instante.
Con esto concluyo que tanto la impresora como el archivo script son correctos.
He visto que otros colegas mandan todos los comandos concatenados e una sola llamada, cosa que tambien he probado, al estilo:
Código Delphi
[-]Procedure Imprimir_Etiqueta;
var
L,Q1,A,A1,B,C,D,E:String ;
begin
with RawPrint1 do
begin
DeviceName:= "IMPRESORA"; JobName = "ETIQUETA";
Try
L:=chr(13)+Chr(10);
Q1:='q500'+L;
A1:='A220,10,0,1,1,1,N,"ESTO ES UN TEXTO"+L ;
B:='B220,30,0,E30,2,20,100,B,'+'"ABC1234"'+L ;
C:='A440,50,0,3,1,1,N,"Leyenda"'+L;
D:='A440,70,0,3,1,1,N,'+'"'+FormatFloat('0.00', Precio.Value)+'"'+L;
E:='A210,20,1,1,1,1,N,'+'"'+DateToStr(date)+'"'+L;
RawPrint1.WriteString(L+'N'+L+'O'+L+'S2'+L+'D7'+L+'ZT'+L+'Q250,10'+Q1+A+A1+B+C+D+E+'P1');
Finally
CloseDevice;
End;
end;
End ;