Function Abrir_Etiqueta_451(var Serial: TCommPortDriver; numero_campo: integer): integer; overload;
Function Abrir_Etiqueta_451(var Serial: TApdComPort; numero_campo: integer): integer; overload;

Procedure Texto_451(var Serial: TCommPortDriver;
margem_erquerda, margem_superior: integer; //Impressão de Campo de Texto
texto: shortstring;
tipo_fonte: integer); overload;
Procedure Texto_451(var Serial: TApdComPort;
margem_erquerda, margem_superior: integer; //Impressão de Campo de Texto
texto: shortstring;
tipo_fonte: integer); overload;

Procedure Codigo_Barras_EAN(var Serial: TCommPortDriver;
margem_erquerda, margem_superior: integer; //Impressão de Código de Barras
codigo: shortstring); overload;
Procedure Codigo_Barras_EAN(var Serial: TApdComPort;
margem_erquerda, margem_superior: integer; //Impressão de Código de Barras
codigo: shortstring); overload;

Function Etiqueta_01(var Serial: TCommPortDriver;
Nome_Empresa,
Nome_Produto,
Cod_Barra,
Peso_Kg,
Codigo_Operador,
Data_Fabricacao: String): Integer; overload;

Function Etiqueta_01(var Serial: TApdComPort;
Nome_Empresa,
Nome_Produto,
Cod_Barra,
Peso_Kg,
Codigo_Operador,
Data_Fabricacao: String): Integer; overload;

Function Fechar_Etiqueta_451(var Serial: TCommPortDriver): integer; overload;
Function Fechar_Etiqueta_451(var Serial: TApdComPort): integer; overload;

  Para recompilar o programa demo antes de adquirir o fonte da unit, é necessário copiar o arquivo 451_Unit.dcu para o diretório Lib de instalação do Delphi, no caso do Delphi 6 pro exemplo:
C:\Arquivos de programas\Borland\Delphi6\Lib

  Caso já tenha adquirido a 451_Unit registrada, você pode adiciona-la ao seu projeto, clicando em Menu> Project> Add to Project.

Realize testes de comunicação com o HyperTerminal que deev apresentar a leitura de caracteres após a conecxão.

  O demo disponível no site é totalmente funcional, sua única limitação é que a cada chamada das funções de impressão ele gera uma mensagem de "Não
Registrado".

  Para identificar o problema pelo qual não está imprimindo, favor verificar alguns pontos:

  1- A impressora deve estar instalada na porta serial COM1.

  2- Verifique as configurações da etiqueta no software, como tamanho, espaço entre etiquetas e posicionamento do textos e códigos de barras. O demo foi configurado para impressão em etiquetas 4x6 cm e caso esteja testando em um padrão diferente, será necessário efetuar as correções no software e só então enviar para impressora.

  3- Verifique se a impressora está ok e pronta para imprimir e se a mesma está recebendo os comandos enviados pelo software (geralmente o led da impressora pisca ao receber os comandos)

  4- Desligue e ligue o impressor.

  O código da 451_Unit.pas foi desenvolvido em Delphi 6 e é totalmente composto por código nativo do Delphi, podendo portanto ser compilado em qualquer versão do Delphi sem maiores complicações, devido a garantias de interoperabilidade entre versões fornecidas pela própria Borland.

  O objetivo maior da Unit é gerar o script da linguagem 451, no entanto a unit já vem acompanhada da implementação de envio direto para a porta serial, utilizada por nossos clientes.

  A implementação do envio para a porta serial COM pode ser feita utilizando qualquer componente de comunicação serial disponivel na internet, simplesmente, enviando a string gerada pela a unit para a porta.

  Aqui na empresa costumamos utilizar o componente TCommPort (freeware) para comunicação serial diversas, mas a comunicação pode ser feita com qualquer componente de sua escolha.

  No momento o código para geração de script 451 só está implementada em Delphi, e não há previsão para implementação outras linguagens.

  Porém, como comercializamos os fontes do produto, o processo de adaptação do mesmo para a linguagem desejada é simples, pois toda a lógica já está implementada e é necessária apenas a tradução. Sendo assim, sugerimos que adquira os fontes em Delphi e faça a adaptação para VB pois será muito mais rápido do que caso deseje fazer a implementação do zero.