Impressão Campo Memo - ACBrETQ

[netsoftclaudio]

 Estou precisando imprimir etiquetas com AcbrETQ de um Campo TMemo aonde contem varias linhas. 
 Existe essa possibilidade ?

Obrigado 

[Daniel Simoes]

Sim... basta fazer uma rotina que lê o memo e envia chama os comandos do ACBrETQ

[netsoftclaudio]

Nossa que legal!

Por gentileza, vc teria um exemplo para me enviar por favor, pois não tenho ideia como seria.

[Daniel Simoes]

Não tenho...

[netsoftclaudio]

Seria algo assim?

=>Imagine que o conteúdo do memo tenha as seguintes linhas:
     ImprimirTexto(orNormal, 2, 2, 2, 3, 3, 'BISCOITO MARILAN RECH 335G', 0, True);
     ImprimirTexto(orNormal, 2, 2, 1, 8, 3, 'CHOC BRANCO');
     ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, '7896003701685', 10, becSIM);
     ImprimirTexto(orNormal, 3, 3, 2, 18, 32, 'R$');
     ImprimirTexto(orNormal, 3, 4, 4, 15, 50, '20,59');

=>Rotina para ler o campo Memo:

if (Memo_Template.Text<>EmptyStr) then
   begin
     for I := 0 to Memo_Template.Lines.Count - 1 do
     begin
       Memo_Template.Lines ;
     end;
   end;

=> Como iria executar cada linha do memo?
 

Editado 24 Março, 2020 por netsoftclaudio

[netsoftclaudio]

Alguém pode me ajudar?

[Juliomar Marchetti]

Em 24/03/2020 at 09:02, netsoftclaudio disse:

Seria algo assim?

=>Imagine que o conteúdo do memo tenha as seguintes linhas:
     ImprimirTexto(orNormal, 2, 2, 2, 3, 3, 'BISCOITO MARILAN RECH 335G', 0, True);
     ImprimirTexto(orNormal, 2, 2, 1, 8, 3, 'CHOC BRANCO');
     ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, '7896003701685', 10, becSIM);
     ImprimirTexto(orNormal, 3, 3, 2, 18, 32, 'R$');
     ImprimirTexto(orNormal, 3, 4, 4, 15, 50, '20,59');

=>Rotina para ler o campo Memo:

if (Memo_Template.Text<>EmptyStr) then
   begin
     for I := 0 to Memo_Template.Lines.Count - 1 do
     begin
       Memo_Template.Lines ;
     end;
   end;

=> Como iria executar cada linha do memo?
 

Nesse caso tu vai ter que interpretar.

primeiro ver qual é o comando inicial imprimirtexto, imprimir barras etc.

segundo separar os demais dados do comando, isso tu faz com um tstringlist.commandtext e coloca a vírgula como delimitador e como sabe que é dados quase fixo

basta ir pegando e preenchendo o comando.

estou chutando isso baseado no que tu quer fazer

[netsoftclaudio]

Vc teria algum exemplo para me enviar ?

[Juliomar Marchetti]

15 minutos atrás, netsoftclaudio disse:

Vc teria algum exemplo para me enviar ?

Não. conforme falei eu imaginei lendo o tópico e como deseja fazer uma possível solução. creio que é meter a mão na massa e escrever.

[netsoftclaudio]

valeu amigo, vou começar então, abs

[netsoftclaudio]

Vc usa comando ACBrETQ para imprimir os comandos ou vc usa ACBrPosPrinter para imprimir o template já pronto ?