Histórico da Página
Geração de Código de Barras
Objetivo
Mostrar como se faz a codificação nos programas para geração do código de barras.
Conceito
O programa utiliza as fontes do Windows para gerar a imagem do código de barras
Parametrização
- Pegar o pacote RMSFontesCodigoDeBarras.zip e instalar na(s) máquina(s) onde deseja visualizar os códigos de barras.
Segue a relação de fontes, do pacote (RMSFontesCodigoDeBarras.zip), a serem instaladas:
- BarcodeFont.ttf
- c39hrp24dhtt.ttf
- 39251.ttf
- STS2DE5A.ttf
Para Instalar basta dar dois cliques no arquivo e ao abrir clicar em instalar.
Copiar e registrar a DLL na pasta EXE do RMS (TOTVSRMSBARCODE.DLL).
Observação:
Caminho onde se encontra o projeto:
...\Retail\Componentes\TOTVSRMSBARCODE
Descrição do processo de Codificação
- Exemplo de codificação para impressão de EAN13 sem FONT.
Dim objCodBarra As Object
Set objCodBarra = CreateObject("TotvsRmsBarCode.clsEan13")
PEan.AutoRedraw = True
PEan.Cls
Call objCodBarra.BarCodeEan13("7898357417892", PEan)
Primeiro Parâmetro:
É o NÚMERO a ser gerado a imagem do código de barras.
Segundo Parâmetro:
É o PICTURE BOX do programa onde a imagem do código de barras deve aparecer.
- Exemplo de codificação para impressão de código de barras com FONTS.
Código Nome da Fonte
[ BACFT ] - BARCODE FONT
[ C39HR ] - C39HRP24DHTT
[ 39251 ] - 39251
[ 2DE5B ] - STS 2 DE 5 BFSL 330114C
Dim objCodBarra As Object
Set objBarCode = CreateObject("TotvsRmsBarCode.clsCodBarFonte")
PBarCode.AutoRedraw = True
PBarCode.Cls
Call objBarCode.GeraImagemCodigoDeBarras(PBarCode, "BCFT", 48, "17350053735252")
Primeiro Parâmetro:
É o PICTURE BOX do programa onde a imagem do código de barras deve aparecer.
Segundo Parâmetro:
NOME DA FONTE a ser utilizada para geração do código de barras.
Terceiro Parâmetro:
TAMANHO DA FONTE a ser utilizada para geração do código de barras.
Quarto Parâmetro:
É o NÚMERO a ser gerado a imagem do código de barras.