VE SE AJUDA :
Primeiro voce faz o calculo dos digitos no código de barra, depois do código formado,
voce tem que transforma-lo para impressão, eu uso a rotina abaixo, veja como:
Private Function CONVERTE2OF5(sVValor As String) As String
Dim VVetor(0 To 99) As String
Dim i As Integer
Dim iV2digitos As Integer
Dim sVValorCodificado As String
Dim sStart As String
Dim sStop As String
'--- define o start e stop para a simbologia i2of5
sStart = Chr(40)
sStop = Chr(41)
'--- preenche o vetor com os caracteres equivalentes.
'--- onde :
'--- índice do vetor => valor inteiro
'--- conteúdo do vetor => valor codificado (caracter)
'--- existe uma fórmula matemática para converter esses dados
'--- porém, desta forma que desenvolvi torna-se muito
'--- mais simples.
iV2digitos = 0
For i = 48 To 97
VVetor(iV2digitos) = Chr(i)
iV2digitos = iV2digitos + 1
Next
For i = 192 To 241
VVetor(iV2digitos) = Chr(i)
iV2digitos = iV2digitos + 1
Next
'--- codifica o valor numérico em i2of5
sVValorCodificado = ""
For i = 1 To Len(sVValor) Step 2
iV2digitos = Val(Mid(sVValor, i, 2))
sVValorCodificado = sVValorCodificado & VVetor(iV2digitos)
Next
'--- retorna o valor codificado, pronto para imprimir
'--- a simbologia interleaved 2of5 (no fonte apropriado)
CONVERTE2OF5 = sStart & sVValorCodificado & sStop
End Function
Depois chama as funções p/ imprimir
sBARRA = CONVERTE2OF5(sVValor)
txtCODIGO.Text = sBARRA
Printer.FontName = "Verdana"
Printer.FontName = "Interleaved 2of5 NT"
Printer.FontSize = 14
Printer.FontBold = False
Printer.Print sBARRA
Voce coloca as coordenadas de impressão e tamanho de fonte que quiser, eu faço um Loop na impressão
para sair o tamanho maior da barra, voce faz como quiser.
