Ver Mensaje Individual
  #8  
Antiguo 29-07-2014
Avatar de hgiacobone
hgiacobone hgiacobone is offline
Miembro
 
Registrado: may 2003
Ubicación: La Plata, Bs. As., Argentina
Posts: 165
Reputación: 21
hgiacobone Va por buen camino
Unhappy

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";  // nombre de la impresora que se obtiene de la variable Printer.-
            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);  //enviar comando
                        end;
                      finally
                          CloseFile(fTextFile);
                      end;
                  end;
            Finally
               CloseDevice;
            End;
        end;
end;

No imprime nada...nada...nada...
__________________
Gracias de antemano por vuestra ayuda.
·.:*:.·Yako·.:*:.·
Responder Con Cita