Ir para conteúdo
  • Cadastre-se

dev botao

Personalizar Codigo de Barras para impressão


  • Este tópico foi criado há 2339 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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?

 

IMG_20171101_150609114.jpg

Link para o comentário
Compartilhar em outros sites

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?

 

IMG_20171101_150609114.jpg

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!

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2339 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.