ACBrETQ È possível carregar arquivo texto para impressão

[netsoftclaudio]

Bom dia a todos,

Gostaria de saber se é possível carregar um arquivo texto para impressão utilizando o componente ACBrETQ, exemplo: etq.txt

Conteúdo do arquivo etq.txt

^XA
~SD10
^CF060,60
^FWN
^F024,24^FR^FDBISCOITO MARILAN RECH 335G^FS
^CF060,60
^FWN
^F024,64^FDCHOC BRANCO^FS
^FD040,104^BEN,96,Y,N^FD7896003701685^FS
^CFA100,100
^FWN
^F0256,144^FDR$^FS
^CFA120,120
^FWN
^F0400,120^FD20.59^FS
^PQ1
^XZ
^PH
^MCY

 

obrigado.

[Daniel Simoes]

você pode usar diretamente o ACBrDevice

[netsoftclaudio]

Não encontrei nenhum exemplo com ACBRDevice, a única coisa que consegui fazer agora e deu certo, foi esse código abaixo:

  if Application.MessageBox('Confirma impressão de teste S/N ?','Atenção', MB_YESNO + MB_ICONQUESTION) = idYes then
     begin
       DM.ACBrPosPrinter.Porta  := CB_Porta.Text;
       DM.ACBrPosPrinter.Modelo := TACBrPosPrinterModelo(CB_Modelo.ItemIndex);
       if (Memo_Template.Text <> EmptyStr) then
           DM.ACBrPosPrinter.Buffer.Text := Memo_Template.Text
       else
          begin
             Application.MessageBox('Template não informado!','Atenção', MB_OK + MB_ICONWARNING);
             abort;
          end;
       DM.ACBrPosPrinter.Ativar;
       DM.ACBrPosPrinter.Imprimir;
       DM.ACBrPosPrinter.Desativar;

     end;
 

 

[CleitonMaciel]

Em 23/03/2020 at 15:37, netsoftclaudio disse:

Bom dia a todos,

Gostaria de saber se é possível carregar um arquivo texto para impressão utilizando o componente ACBrETQ, exemplo: etq.txt

Conteúdo do arquivo etq.txt

^XA
~SD10
^CF060,60
^FWN
^F024,24^FR^FDBISCOITO MARILAN RECH 335G^FS
^CF060,60
^FWN
^F024,64^FDCHOC BRANCO^FS
^FD040,104^BEN,96,Y,N^FD7896003701685^FS
^CFA100,100
^FWN
^F0256,144^FDR$^FS
^CFA120,120
^FWN
^F0400,120^FD20.59^FS
^PQ1
^XZ
^PH
^MCY

 

obrigado.

o amigo conseguiu usar o código? Consegui fazer para 1 coluna! Peguei um outro layout com 2 colunas estou aqui batendo cabeça!!!