Nop... sigue sin funcionar.
1-Primero instale el componente.
2-Luego lo puse en el Form junto a un TOpenDialog.
3-Esto me permite abrir (y guardar en una variable TextFile) el archivo de texto que tiene la etiqueta. El formato es script EPL:
Código:
I8,A,001
Q508,024
q863
rN
S3
D7
ZT
JF
OD
R25,0
f100
N
B200,189,0,E30,4,8,130,B,"3836556465461"
A99,31,0,4,6,6,N,"Esto es un ejemplo"
P1
4-Leo y recojo cada linea y las envio a la impresora (mediante el componente):
Código Delphi
[-]procedure Enviar_Etiqueta(s : string);
begin
with RawPrint1 do
begin
DeviceName:= "IMPRESORA"; JobName = "ETIQUETA";
Try
if OpenDevice = False then
raise exception.Create('Error en impresora.')
else begin
AssignFile(fTextFile, OpenDialog1.FileName );
Reset(fTextFile);
try
While Not Eof(fTextFile) do
begin
ReadLn(fTextFile, s);
RawPrint1.WriteString(s); end;
finally
CloseFile(fTextFile);
end;
end;
Finally
CloseDevice;
End;
end;
end;
No imprime nada...nada...nada...