Imprimir Etiquetas 3 coluna

[nildglan]

Pessoa estou tendo dificuldade em imprimir etiqueta em 3 coluna com o componente ACBrETQ eu configurei conforme o código que peguei do modelo do acbr dessa forma

   ImprimirTexto(orNormal, 2, 1, 2, 2, 3, 'BISCOITO REC 33G');
        ImprimirTexto(orNormal, 2, 1, 1, 6, 3, 'CHOC BRANCO');
        ImprimirBarras(orNormal, barEAN13, 2, 2, 8, 3, '7896003701685', 10);

        ImprimirTexto(orNormal, 2, 1, 2, 2, 28, 'BISCOITO RECH 33G');
        ImprimirTexto(orNormal, 2, 1, 1, 6, 28, 'CHOC BRANCO');
        ImprimirBarras(orNormal, barEAN13, 2, 2, 8, 28, '7896003701685', 10);

        ImprimirTexto(orNormal, 2, 1, 2, 2, 53, 'BISCOITO RECH 33G');
        ImprimirTexto(orNormal, 2, 1, 1, 6, 53, 'CHOC BRANCO');
        ImprimirBarras(orNormal, barEAN13, 2, 2, 8, 53, '7896003701685', 10);
 

só que claro informando meus campos como vou mostrar na imagem Config, só que não sai em 3 colunas só sai em 1 coluna e sai grande ainda estou apanhando pra caramba 

a impressora é a que ta na foto config  uma Elgin L42Pro

já tentei de várias formas mais não imprimi as 3 coluna,  a etiqueta é 33x22 mim as dimensões  e queria imprimir nelas vou postar a foto dela se alguem puder me ajudar 

 

[leandroaoa]

Tarde nas configuracao da etiquetas veja se esta                Unidade      := etqMilimetros;

[Juliana Tamizou]

Boa tarde

Você chegou a analisar o demo?

Att.

[nildglan]

sim esse código de cima é do memo juliana

 

[nildglan]

a configuração ta etqDecimoDeMilimetros  tem que mudar?

[nildglan]

alias ja ta tava a configuração ta etqMilimetrostem 

[leandroaoa]

tarde ta ai :

 

             with ACBrETQ do
              begin
               Desativar;

               Modelo       := TACBrETQModelo(strtoint(covalor(FormConfig.edit79.text))) ;
               Porta        := trim(FormConfig.edit38.text);
               Unidade      := etqMilimetros;

               Ativar ;

                             ImprimirTexto(orNormal, 2, 1, 1, 2, 1, clientdataset2.fieldbyname('desc1').asstring);
                             ImprimirTexto(orNormal, 2, 1, 1, 5, 1, clientdataset2.fieldbyname('tam').asstring);
                             ImprimirTexto(orNormal, 2, 1, 2, 8, 1, 'REF '+xValor);
                             ImprimirBarras(orNormal, barCODE128, 2, 2, 12, 1, trim(clientdataset2.fieldbyname('barra').asstring), 5, BecNAO);
                             ImprimirTexto(orNormal, 2, 1, 2, 18, 1, trim(clientdataset2.fieldbyname('barra').asstring));
                             ImprimirTexto(or90, 1, 1, 1, 2, 26, trim(FormConfig.Edit2.Text));
                             ImprimirTexto(or90, 2, 1, 1, 1, 29, trim(FormConfig.Edit8.Text));

                             ImprimirTexto(orNormal, 2, 1, 1, 2, 37, clientdataset2.fieldbyname('desc1').asstring);
                             ImprimirTexto(orNormal, 2, 1, 1, 5, 37, clientdataset2.fieldbyname('tam').asstring);
                             ImprimirTexto(orNormal, 2, 1, 2, 8, 37, 'REF '+xValor);
                             ImprimirBarras(orNormal, barCODE128, 2, 2, 12, 37, trim(clientdataset2.fieldbyname('barra').asstring), 5, BecNAO);
                             ImprimirTexto(orNormal, 2, 1, 2, 18, 37, trim(clientdataset2.fieldbyname('barra').asstring));
                             ImprimirTexto(or90, 1, 1, 1, 2, 62, trim(FormConfig.Edit2.Text));
                             ImprimirTexto(or90, 2, 1, 1, 1, 65, trim(FormConfig.Edit8.Text));

                             ImprimirTexto(orNormal, 2, 1, 1, 2, 73, clientdataset2.fieldbyname('desc1').asstring);
                             ImprimirTexto(orNormal, 2, 1, 1, 5, 73, clientdataset2.fieldbyname('tam').asstring);
                             ImprimirTexto(orNormal, 2, 1, 2, 8, 73, 'REF '+xValor);
                             ImprimirBarras(orNormal, barCODE128, 2, 2, 12, 73, trim(clientdataset2.fieldbyname('barra').asstring), 5, BecNAO);
                             ImprimirTexto(orNormal, 2, 1, 2, 18, 73, trim(clientdataset2.fieldbyname('barra').asstring));
                             ImprimirTexto(or90, 1, 1, 1, 2, 98, trim(FormConfig.Edit2.Text));
                             ImprimirTexto(or90, 2, 1, 1, 1, 101, trim(FormConfig.Edit8.Text));

                             Imprimir(1, StrToInt(covalor(FormConfig.edit80.text)));
              end;    

 

[nildglan]

fiz da forma que vc fez e não deu certo veja as configuração

 

e veja como saiu na outra imagem

 

só sai em uma e ainda errado to quase desistindo

[leandroaoa]

tarde e que usei ali modelo pplb a unica diferenca e como abaixo

                             ImprimirTexto(orNormal, 2, 1, 1, 18, 1, clientdataset2.fieldbyname('desc1').asstring);
                             ImprimirTexto(orNormal, 2, 1, 1, 15, 1, clientdataset2.fieldbyname('tam').asstring);
                             ImprimirTexto(orNormal, 2, 1, 2, 12, 1, 'REF '+xValor);
                             ImprimirBarras(orNormal, barCODE128, 2, 2, 9, 1, trim(clientdataset2.fieldbyname('barra').asstring), 5, BecNAO);
                             ImprimirTexto(orNormal, 2, 1, 2, 2, 1, trim(clientdataset2.fieldbyname('barra').asstring));
                             ImprimirTexto(or90, 1, 1, 1, 18, 26, trim(FormConfig.Edit2.Text));
                             ImprimirTexto(or90, 2, 1, 1, 18, 29, trim(FormConfig.Edit8.Text));

 

basta voce altera os valores do vertical que inverte um comeca de cima pra baixo e o outro de baixo pra cima ajusta os valores ai que vai de boa estou sem impressora com ppla aqui