Pessoal bom dia!!
Alguém poderia me ajudar nesta batalha!!
Estou a uma semana tentando imprimir código de barras na Impressora L42 da elgin.
Só consigo imprimir EAN13, quando o produto não tem eu gostaria de fazer a impressão usando cod128 ou cod39, mais não imprimi.
Já fiz pesquisa já peguei o manual para ver e nada
este é parte do código
if not dm.qryEtiquetas.Eof then
begin
LCodigo := EmptyStr;
if Length(DM.qryEtiquetas.FieldByName('DESCR_PRODUTO').AsString) > 25 then
begin
ImprimirTexto(orNormal, 1, 1, 1, 40, 440,Copy(DM.qryEtiquetas.FieldByName('DESCR_PRODUTO').AsString,1, 25));
ImprimirTexto(orNormal, 1, 1, 1, 60, 450,Copy(DM.qryEtiquetas.FieldByName('DESCR_PRODUTO').AsString,26,
length(DM.qryEtiquetas.FieldByName('DESCR_PRODUTO').AsString)));
end else ImprimirTexto(orNormal, 1, 1, 1, 70, 440,Copy(DM.qryEtiquetas.FieldByName('DESCR_PRODUTO').AsString,1, 25));
ImprimirTexto(orNormal, 2, 1, 1, 10, 440,'R$ '+
FormatFloat('#,##0.00',DM.qryEtiquetas.FieldByName('VALOR_PROD').AsFloat));
if (Length(DM.qryEtiquetas.FieldByName('TAMANHO').AsString) > 0) or
(Length(DM.qryEtiquetas.FieldByName('COR').AsString) > 0) then begin
ImprimirTexto(orNormal, 1, 1, 1, 80, 440,'TM: '+DM.qryEtiquetas.FieldByName('TAMANHO').AsString+
' COR: '+DM.qryEtiquetas.FieldByName('COR').AsString);
end;
if Length(dm.qryEtiquetas.FieldByName('CODBARRA').AsString)= 13 then
ImprimirBarras(orNormal, barEAN13, 2, 2, 100, 450, DM.qryEtiquetas.FieldByName('CODBARRA').AsString,90, becSIM)
else begin
ImprimirBarras(orNormal, barCODE39, 2, 2, 100, 450, DM.qryEtiquetas.FieldByName('CODBARRA').AsString,90, becPadrao);
end;
ImprimirTexto(orNormal, 2, 1, 1, 200, 440,DM.qryFilial.FieldByName('fantasia').AsString);
dm.qryEtiquetas.Next;
end;
Imprimir(StrToInt(IntToStr(dm.qryEtiquetas.FieldByName('qtd_etiqueta').AsInteger)), StrToInt(eAvanca.Text));