AcbrETQ Calibrar, Iniciar Bloco, PrintDirection

[Anderson Rodrigo da silva]

Boa noite, gostaria de saber se é possível implementar tais funções no AcbrETQ, haja visto que tive alguns contra-tempo em impressoras Argox OS-214tt, e Argox OS-214Plus, onde as mesmas não imprimia toda a Etiqueta. Fiz todas as configurações pela propriedades da impressora

e mesmo assim ao imprimir a mesma saia desta forma:

[Anderson Rodrigo da silva]

30 minutos atrás, Anderson Rodrigo da silva disse:

Boa noite, gostaria de saber se é possível implementar tais funções no AcbrETQ, haja visto que tive alguns contra-tempo em impressoras Argox OS-214tt, e Argox OS-214Plus, onde as mesmas não imprimia toda a Etiqueta. Fiz todas as configurações pela propriedades da impressora

e mesmo assim ao imprimir a mesma saia desta forma:

então resolvi modificar a forma de Direcionamento de impressão de ZB para ZT

no método CalcularComandoAbertura

>>> antes

 Cmd := Cmd + 'R0,0' + LF +     // Anula as margens Horizontal e Vertical
               'ZB' ;            // ZT = Printing from top of image buffer. (PADRÃO)
                                 // ZB = Printing from bottom of image buffer.

>>> depois

Cmd := Cmd + 'R0,0' + LF +             // Anula as margens Horizontal e Vertical
  IfThen(fpPrintDirection=pdTopo,'ZT','ZB'); // ZT = Printing from top of image buffer. (PADRÃO) {Anderson} (Imprime apartir do Topo)
                                         // ZB = Printing from bottom of image buffer.           {Anderson} (Imprime apartir da Base)

a partir desta mudança a impressão passou a ficar desta forma:

Editado 23 Outubro, 2017 por Anderson Rodrigo da silva
fa

[Anderson Rodrigo da silva]

11 minutos atrás, Anderson Rodrigo da silva disse:

então resolvi modificar a forma de Direcionamento de impressão de ZB para ZT

no método CalcularComandoAbertura

>>> antes

 Cmd := Cmd + 'R0,0' + LF +     // Anula as margens Horizontal e Vertical
               'ZB' ;            // ZT = Printing from top of image buffer. (PADRÃO)
                                 // ZB = Printing from bottom of image buffer.

>>> depois

Cmd := Cmd + 'R0,0' + LF +             // Anula as margens Horizontal e Vertical
  IfThen(fpPrintDirection=pdTopo,'ZT','ZB'); // ZT = Printing from top of image buffer. (PADRÃO) {Anderson} (Imprime apartir do Topo)
                                         // ZB = Printing from bottom of image buffer.           {Anderson} (Imprime apartir da Base)

a partir desta mudança a impressão passou a ficar desta forma:

 

----------------------------------------------------------------------------------------------------

Conforme post anterior e sugerido por Daniel Simoes PARA IMPLEMENTAR NOVO MÉTODO para calibrar

fiz tal mudança para impressora zebra e ainda não encontrei comando para argox

AtivarACBrETQ;
with ACBrETQ do
  Calibrar;

 

 

[Anderson Rodrigo da silva]

12 minutos atrás, Anderson Rodrigo da silva disse:

 

----------------------------------------------------------------------------------------------------

Conforme post anterior e sugerido por Daniel Simoes PARA IMPLEMENTAR NOVO MÉTODO para calibrar

fiz tal mudança para impressora zebra e ainda não encontrei comando para argox

AtivarACBrETQ;
with ACBrETQ do
  Calibrar;

 

 

Conforme post anterior e sugerido por Daniel Simoes PARA IMPLEMENTAR NOVO MÉTODO para calibrar

fiz tal mudança para impressora zebra e ainda não encontrei comando para argox

AtivarACBrETQ;
with ACBrETQ do
  Calibrar;

---------------------------------------------------------------------

JÁ O MÉTODO INICIARBLOCO foi mediante a impressão de um bloco cujo uma massa de etiquetas eram enviadas e ao termino de cada bloco PULAVA UMA LINHA iniciando o processo. Daí observei que estava sem enviado desta FORMA:

D10
N
R0,0
ZT
A44,12,0,2,2,2,N,"BISCOITO MARILAN RECH 335G"
A44,48,0,3,2,1,N,"CHOC BRANCO"
B44,76,0,E30,2,2,72,B,"7896003701685"
A284,88,0,3,3,2,N,"R$"
A412,68,0,3,4,5,N,"20.59"
P1
N
D10
N
R0,0
ZT
A44,12,0,2,2,2,N,"SABAO EM PO FLASH 1KG"
A44,48,0,3,2,1,N,"ADVANCED - UNIDADE"
B44,76,0,E30,2,2,72,B,"7898903097042"
A284,88,0,3,3,2,N,"R$"
A412,68,0,3,4,5,N,"3.18"
P1
D10
N
R0,0
ZT
A44,12,0,2,2,2,N,"AMACIANTE AMACIEX 5 LTS"
A44,48,0,3,2,1,N,"MACIO MATRIX FIX"
B44,76,0,E30,2,2,72,B,"7898237690230"
A284,88,0,3,3,2,N,"R$"
A412,68,0,3,4,5,N,"8.60"
P1

===> modifiquei o modo de iniciar utilizando em vez de IniciarEtiqueta utilizei IniciarBlocoEtiqueta ficando assim o bloco ao enviar

D10
N
R0,0
ZT
A44,12,0,2,2,2,N,"BISCOITO MARILAN RECH 335G"
A44,48,0,3,2,1,N,"CHOC BRANCO"
B44,76,0,E30,2,2,72,B,"7896003701685"
A284,88,0,3,3,2,N,"R$"
A412,68,0,3,4,5,N,"20.59"
P1
N
A44,12,0,2,2,2,N,"SABAO EM PO FLASH 1KG"
A44,48,0,3,2,1,N,"ADVANCED - UNIDADE"
B44,76,0,E30,2,2,72,B,"7898903097042"
A284,88,0,3,3,2,N,"R$"
A412,68,0,3,4,5,N,"3.18"
P1
N
A44,12,0,2,2,2,N,"AMACIANTE AMACIEX 5 LTS"
A44,48,0,3,2,1,N,"MACIO MATRIX FIX"
B44,76,0,E30,2,2,72,B,"7898237690230"
A284,88,0,3,3,2,N,"R$"
A412,68,0,3,4,5,N,"8.60"
P1
 

FIZ TODOS OS TESTES usando o exemplo do AcbrETQ.. 

envio os arquivos modificados para serem analisados e se possível for apreciado pelos colegas...

ACBrDevice.pas, ACBrETQ.pas, ACBrETQClass.pas, ACBrETQEpl2.pas, ACBrETQPpla.pas

 

[EliasCesar]

Olá, 

Estamos efetuando um refactoring no componente ACBrETQ. 
Assim que finalizado, informo aqui no post.

[Daniel Simoes]

A refatoração do componente ACBrETQ, já foi enviada para o SVN...

Agora existe a propriedade: Origem: TACBrETQOrigem, (ogNone, ogTop, ogBottom);