ETIQUETAS USANDO ACBRLIBETQ
BOM DIA! ESTOU COM O SEGUINTE PROBLEMA: AO IMPRIMIR ETIQUETAS DE GONDOLA PELO MEU SISTEMA USANDO A MESMA CODIFICAÇÃO DO EXEMPLO DO COMPONENTE A FONTE FICA DIFERENTE. ESTOU USANDO O MODELO etqZPLII. NO EXEMPLO DO COMPONENTE SAI PERFEITO MAS QUANDO ENVIO DO MEU SISTEMA A FONTE SAI MAIOR. O QUE PODE SER?
EXEMPLO COMPONENTE:
IniciarEtiqueta;
ImprimirTexto(orNormal, '0', 60, 60, 3, 3, 'BISCOITO MARILAN RECH 335G', 0, True);
ImprimirTexto(orNormal, '0', 60, 60, 8, 3, 'CHOC BRANCO');
ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, '7896003701685', 10, becSIM);
ImprimirTexto(orNormal, 'A', 100, 100, 18, 32, 'R$');
ImprimirTexto(orNormal, 'A', 120, 120, 15, 50, '20,59');
FinalizarEtiquetaComCopiasEAvanco;
EXEMPLO MEU SISTEMA
with ACBrETQ do
begin
while not tb_etiqtemp.eof do
begin
IniciarEtiqueta;
ImprimirTexto(orNormal, 2, 2, 2, 3, 3, tb_etiqtempNOME.Value, 0, True);
ImprimirTexto(orNormal, 2, 2, 1, 8, 3, '');
ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, tb_etiqtempCODIGO.Value, 10, becSIM);
ImprimirTexto(orNormal, 3, 3, 2, 18, 32, 'R$');
ImprimirTexto(orNormal, 3, 4, 4, 15, 50, formatfloat('##,##0.00',tb_etiqtempPVENDA.Value));
FinalizarEtiquetaComCopiasEAvanco;
tb_etiqtemp.Next;
end;
ImprimirEtiquetaComCopiasEAvanco;
Desativar;
end;
EXEMPLO COMPONENTE:
IniciarEtiqueta;
ImprimirTexto(orNormal, '0', 60, 60, 3, 3, 'BISCOITO MARILAN RECH 335G', 0, True);
ImprimirTexto(orNormal, '0', 60, 60, 8, 3, 'CHOC BRANCO');
ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, '7896003701685', 10, becSIM);
ImprimirTexto(orNormal, 'A', 100, 100, 18, 32, 'R$');
ImprimirTexto(orNormal, 'A', 120, 120, 15, 50, '20,59');
FinalizarEtiquetaComCopiasEAvanco;
EXEMPLO MEU SISTEMA
with ACBrETQ do
begin
while not tb_etiqtemp.eof do
begin
IniciarEtiqueta;
ImprimirTexto(orNormal, 2, 2, 2, 3, 3, tb_etiqtempNOME.Value, 0, True);
ImprimirTexto(orNormal, 2, 2, 1, 8, 3, '');
ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, tb_etiqtempCODIGO.Value, 10, becSIM);
ImprimirTexto(orNormal, 3, 3, 2, 18, 32, 'R$');
ImprimirTexto(orNormal, 3, 4, 4, 15, 50, formatfloat('##,##0.00',tb_etiqtempPVENDA.Value));
FinalizarEtiquetaComCopiasEAvanco;
tb_etiqtemp.Next;
end;
ImprimirEtiquetaComCopiasEAvanco;
Desativar;
end;
Gilson Silva
Curtidas 0