“Dados” – dados a serem impressos
Agora que você já entendeu, vamos ver como vai ficar em Lazarus ou Delphi:
procedure TFormEtqL42.BtnImprimeETQ;
var
F : TextFile;
i : integer;
begin
IF cPortaBARRAS = ” then
begin
ShowMessage(‘Verifique a configuração da porta da impressora de etiqueta’);
Exit;
end;
AssignFile(F,cPortaBARRAS);
Rewrite(F);
i := 0;
TabGlobal.DETQ001.Last;
TabGlobal.DETQ001.First;
while not TabGlobal.DETQ001.eof do
begin
Writeln(F,’N’);
Writeln(F,’D20′);
Writeln(F,’S3′);
// Etiqueta 1
Writeln(F,’A810,160,2,1,1,1,N,”‘+TabGlobal.DETQ001.DESCRICAO.Conteudo+'”‘);
Writeln(F,’A810,140,2,3,1,1,N,”‘+TabGlobal.DETQ001.CODPRO.Conteudo+'”‘);
Writeln(F,’A810,115,2,3,1,1,N,”‘+TabGlobal.DETQ001.VALOR.Conteudo+'”‘);
Writeln(F,’B570,020,0,2,3,5,65,N,”‘+TabGlobal.DETQ001.BARRAS.Conteudo+'”‘);
// Etiqueta 2
TabGlobal.DETQ001.Next;
Writeln(F,’A540,160,2,1,1,1,N,”‘+TabGlobal.DETQ001.DESCRICAO.Conteudo+'”‘);
Writeln(F,’A540,140,2,3,1,1,N,”‘+TabGlobal.DETQ001.CODPRO.Conteudo+'”‘);
Writeln(F,’A540,115,2,3,1,1,N,”‘+TabGlobal.DETQ001.VALOR.Conteudo+'”‘);
Writeln(F,’B310,020,0,2,3,5,65,N,”‘+TabGlobal.DETQ001.BARRAS.Conteudo+'”‘);
// Etiqueta 3
TabGlobal.DETQ001.Next;
Writeln(F,’A260,160,2,1,1,1,N,”‘+TabGlobal.DETQ001.DESCRICAO.Conteudo+'”‘);
Writeln(F,’A260,140,2,3,1,1,N,”‘+TabGlobal.DETQ001.CODPRO.Conteudo+'”‘);
Writeln(F,’A260,115,2,3,1,1,N,”‘+TabGlobal.DETQ001.VALOR.Conteudo+'”‘);
Writeln(F,’B030,020,0,2,3,5,65,N,”‘+TabGlobal.DETQ001.BARRAS.Conteudo+'”‘);
TabGlobal.DETQ001.Next;
Writeln(F,’P1′);
end;
CloseFile(F);
end;
Se gostou, compartilhe e ajude a divulgar meu trabalho. Obrigado!
* Créditos para parte do texto dos comandos para ArgoxBrasil