Este código possui uma rotina completa para a geração Código de Barra.
Com este código é possível gerar código de barra para diversos padrões como EAN-13 e EAN-8.
É necessário baixar os arquivos anexados.
" htmlCodigoBarra = htmlCodigoBarra & "" htmlCodigoBarra = htmlCodigoBarra & " " htmlCodigoBarra = htmlCodigoBarra & " " htmlCodigoBarra = htmlCodigoBarra & " 0 Then Texto = "0" & Texto End if 'HTML dos dados Do While Len(Texto) > 0 i = Cint(Left(Texto,2)) Texto = Right(Texto, Len(Texto)- 2) F = arrCodigoBarra(i) For i = 1 To 10 Step 2 If Mid(F, i, 1) = "0" Then F1 = Fino Else F1 = Largo End If htmlCodigoBarra = htmlCodigoBarra & " src=p.jpg width=" & F1 & " height=" & Altura & " border=0> " htmlCodigoBarra = htmlCodigoBarra & " " htmlCodigoBarra = htmlCodigoBarra & " " 'Retornando a função getCodigoBarras = htmlCodigoBarra End Function 'Exemplo de geração do código de barras 'Substitua o valor do parâmetro abaixo pelo número do código de barras. Response.Write getCodigoBarras("7890552007601") %>