Personalizar Codigo de Barras para impressão

[Anderson Freitas Taborda]

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?

 

[Anderson Freitas Taborda]

2 minutos atrás, Anderson Freitas Taborda disse:

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?

 

Ah, um detalhe, ja testei todos os tipos de letras do A ao T, mas sempre tive divergencias no final. Um que ficou bom foi o IfThen(EAN13Valido(codBarras), 'F', 'C'), mas na hora de utilizar o leitor, ele gerou digitos a mais, não localizando o produto no programa!