Array
(
)

Enviar Compactado Epson lx300 ?

Essistemas
   - 20 set 2004

const
cEject = #12;
{ Tamanho da fonte }
c10cpi = 18;
c12cpi = 2777;
c17cpi = 15;
AssignFile(F, ´LPT1´);
Rewrite(F);
While not TempEtiqueta.Eof do
begin
WriTeln(F,Descr1 + StringOfChar(´ ´,6)+ Descr2 ) ;
TempEtiqueta.Next ;
end;
CloseFile(F)
end;
Já tentei assim

Tenho o seguinte código que envio direto p/ impressora
só que se eu colocar
WriTeln(F,c17cpi+Descr1 + StringOfChar(´ ´,6)+ Descr2 ) ;
Não compacta + se eu fizer o exemplo abaixo ele faz como poderia
fazer isto na mimha realidade ?

var
Texto: string;
F: TextFile;
begin
Texto := c17cpi + ´a Epson LX 300. ´ ;
AssignFile(F, ´LPT1´);
Rewrite(F);
try
WriteLn(F, cJustif, Texto);
WriteLn(F, cEject);
finally
CloseFile(F);
end;


Edjborges
   - 23 set 2004

Experimento colocar o comando direto no Writeln, como por exemplo:

WriTeln(F,#2715+Descr1 + StringOfChar(´ ´,6)+ Descr2 ) ;

Normalmente utilizou assim e não tenho problemas