Prezados boa tarde
Tenho o seguinte codigo para impressao de etiquetas:
begin
codReduzido := StringGridItens.Cells[5, i];
Tamanho := StringGridItens.Cells[4, i];
ImprimirTexto(orNormal, 2, 1, 1, 15, 560, codBarras, 50);
ImprimirBarras(orNormal,
IfThen(EAN13Valido(codBarras), 'F', 'E'),
IfThen(EAN13Valido(codBarras), '2', '2'),
IfThen(EAN13Valido(codBarras), '2', '2'), 50,
{ inicio da altura do codigo de barra }
IfThen(EAN13Valido(codBarras), 560,
IfThen(Length(codBarras) >= 9, 560,
IfThen(Length(codBarras) <= 8, 560))), codBarras, 125, becNAO);
ImprimirTexto(orNormal, 2, 1, 1, 60, 845, 'TAM: ' + Tamanho, 50);
ImprimirTexto(orNormal, 3, 1, 1, 90, 845, valor, 100);
ImprimirTexto(orNormal, 2, 1, 1, 135, 845, 'PRECO', 50);
ImprimirTexto(orNormal, 2, 1, 1, 210, 550, produto, 50);
pos_ultima_etiqueta := 1;
end;
O que acontece é o seguinte, quando tenho um codigo valido pelo EAN13 ou EAN8 (válidos) a impressão do codigo de barras fica perfeito na etiqueta, se tenho um codigo maior que 13 caracteres definido pelo usuario, o codigo de barras ocupa a etiqueta toda. Existe alguma maneira de padronizar o tamanho do codigo? deixando todos no mesmo tamanho do EAN13 ou EAN8?