Bom dia pessoal
tenho um programa de controle de eventos que vendi pra um cliente meu que 
imprimia codigos de barra atraves do report builder
ai eles compraram uma impressora argox 214tt  para imprimir os codigos de barras
mais nao estou sabendo configurar  ela 
vejam só o componente acbr tem um demo de impressao ppla
que imprime normal na impressora ai tentei imprementar no meu sistema mais nao 
deu certo o codigo é esse



esse é do exemplo do acbr

procedure TFPrincipal.bEtqSimplesClick(Sender: TObject);
begin
with ACBrETQ do
   begin
   Modelo := TACBrETQModelo(cbModelo.ItemIndex);
   Porta := cbPorta.Text;
   Ativar;
   ImprimirTexto(orNormal, 2, '2', '2', 190, 5, 'BISCOITO MARILAN RECH 335G');
   ImprimirTexto(orNormal, 2, '2', '1', 158, 5, 'CHOC BRANCO');
   ImprimirBarras(orNormal, 'F', '2', '2', 32, 0, '7896003701685', 90);
   ImprimirTexto(orNormal, 3, '3', '2', 15, 300, 'R$');
   ImprimirTexto(orNormal, 3, '4', '4', 15, 450, '20.59');

   Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text));
   Desativar;
   end;
end;

esse é o meu codigo , as linhas em azul foi onde alterei,
na impressao sai o nome mais nao sai o codigo de barras
alguem teria uma ideia do que pode esta acontencendo
desde ja agradeço a aiuda de todos 

procedure TFrmEtiquetas.Button1Click(Sender: TObject);
begin
with ACBrETQ do
   begin
   Modelo := TACBrETQModelo(cbModelo.ItemIndex);
   Porta := cbPorta.Text;
   Ativar;
   ImprimirTexto(orNormal, 2, '2', '1', 158, 5, dm.ADOPartCracha.Value);
   ImprimirBarras(orNormal, 'F', '2', '2', 32, 0, dm.ADOPartCodBarra.value, 90);
   Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text));
   Desativar;
end;
end ;


[As partes desta mensagem que não continham texto foram removidas]

Reply via email to