Fórum CÓDIGOS DA EPSON LX 300 #148437

[quote:2b32f03830=´FCS-BH´]COLEGAS,A ALGUÉM SABE ME DIZER ONDE POSSO ENCONTRAR OS CÓDIGO DA IMPRESSORA EPSON LX-300?

ALGUÉM CONHECE UMA BOA APOSTILA QUE ENSINE A USAR O TPRINTER?

COMO POSSO COLOCAR O TEXTO PARA CONDENSADO COM O TPRINTER?

SE ALGUÉM PUDER ME AJUDAR.


FCS-BH[/quote:2b32f03830]
Colega,

http://support.epson.ru/products/manuals/000350/part1.pdf

Ola,

um colega do forum uma vez me ajudou
com a seguinte procedure.


procedure TformEmissao.Say(Nlin,Ncol: Integer; var LinhaAtual:Integer;
var Arquivo: Text;Texto: Variant);
var
X: Integer;
begin
Write(Arquivo,#13);

if Nlin <> LinhaAtual then
begin
for X := LinhaAtual to (Nlin - 1) do
begin
Writeln(Arquivo,´´);
LinhaAtual := LinhaAtual + 1;
end;
end;

if Ncol > 0 then
begin
for X := 0 to Ncol do
begin
Write(Arquivo,´ ´);
end;
end;

if LinhaAtual >= 63 then { 63 É O NÚMERO DA ÚLTIMA LINHA ANTES DO RODAPÉ}
begin
for X := 63 to 67 do { 67 É A QUANTIDADE DE LINHAS POR PÁGINA }
begin
Writeln(Arquivo,´´);
LinhaAtual := 0;
end;
end;
Write(Arquivo,Texto);
end;


executando a procedure de impressão

Say(02,05,LinhaAtual,ArqPrn, texto a ser impresso);

para condensar o texto a ser impresso use assim

Say(02,05,LinhaAtual,ArqPrn, #15+texto a ser impresso+18 );

02 = linha onde o texto vai ser impresso
05 = coluna onde começa a impressão
15 = Condensa
18 = Descondensa

espero ter ajudado

Wagner. 8)

Eu acho mais eficiente vc dar uma olhadinha no componente ZReport que se encontra no site de Clube Delphi....