[MASOCH-L] RES: Impressao de Codigo de Barras e Formularios em Laser

[Gustavo Zamboni]

Eu utilizei a seguinte solução em asp que encontrei na internet, me
desculpem mas não lembro a fonte:
FUNÇÃO:

<%

Dim BarCodes2(99)

''FUNCAO PARA GERAR O CODIGO DE BARRAS

function fbarcode(valorb)
Dim f, f1, f2, i
Dim texto
Const fino = 1
Const largo = 3
Const altura = 50
Dim BarCodes(99)

if isempty(BarCodes(0)) then
  BarCodes(0) = "00110"
  BarCodes(1) = "10001"
  BarCodes(2) = "01001"
  BarCodes(3) = "11000"
  BarCodes(4) = "00101"
  BarCodes(5) = "10100"
  BarCodes(6) = "01100"
  BarCodes(7) = "00011"
  BarCodes(8) = "10010"
  BarCodes(9) = "01010"
  for f1 = 9 to 0 step -1
    for f2 = 9 to 0 Step -1
      f = f1 * 10 + f2
      texto = ""
      for i = 1 To 5
        texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1)
      next
      BarCodes(f) = texto
    next
  next
end if

end function

%>


GERA O CÓDIGO DE BARRAS:
<%

valorb = CodigoBarras

fino = 1
largo = 3
altura = 50

if isempty(BarCodes2(0)) then
  BarCodes2(0) = "00110"
  BarCodes2(1) = "10001"
  BarCodes2(2) = "01001"
  BarCodes2(3) = "11000"
  BarCodes2(4) = "00101"
  BarCodes2(5) = "10100"
  BarCodes2(6) = "01100"
  BarCodes2(7) = "00011"
  BarCodes2(8) = "10010"
  BarCodes2(9) = "01010"
  for f1 = 9 to 0 step -1
    for f2 = 9 to 0 Step -1
      f = f1 * 10 + f2
      texto = ""
      for i = 1 To 5
        texto = texto & mid(BarCodes2(f1), i, 1) + mid(BarCodes2(f2), i, 1)
      next
      BarCodes2(f) = texto
    next
  next
end if

'Desenho da barra


' Guarda inicial
Response.write("<img src=http://www.zbnet.com.br/Imagens/p.gif
width="&fino&" height="&altura&" border=0><img
src=http://www.zbnet.com.br/Imagens/b.gif width="&fino&" height="&altura&"
border=0><img src=http://www.zbnet.com.br/Imagens/p.gif width="&fino&"
height="&altura&" border=0><img src=http://www.zbnet.com.br/Imagens/b.gif
width="&fino&" height="&altura&" border=0><img ")
texto = valorb
if len( texto ) mod 2 <> 0 then
  texto = "0" & texto
end if


' Draw dos dados
do while len(texto) > 0
  i = cint( left( texto, 2) )
  texto = right( texto, len( texto ) - 2)
  f = BarCodes2(i)
  for i = 1 to 10 step 2
    if mid(f, i, 1) = "0" then
      f1 = fino
    else
      f1 = largo
    end if
    Response.write("src=http://www.zbnet.com.br/Imagens/p.gif width="&f1&"
height="&altura&" border=0><img ")
    if mid(f, i + 1, 1) = "0" Then
      f2 = fino
    else
      f2 = largo
    end if
    Response.write("src=http://www.zbnet.com.br/Imagens/b.gif width="&f2&"
height="&altura&" border=0><img ")
  next
loop

' Draw guarda final
wid=1
Response.write("src=http://www.zbnet.com.br/Imagens/p.gif width="&largo&"
height="&altura&" border=0><img src=http://www.zbnet.com.br/Imagens/b.gif
width="&fino&" height="&altura&" border=0><img
src=http://www.zbnet.com.br/Imagens/p.gif width="&wid&" height="&altura&"
border=0>")



%>

Eu uso ele um pouco diferente, gero os boletos em htmls, mas o principio é o
mesmo.

Espero ter ajudado,

Qualquer dúvida me mande um e-mail.

Atenciosamente,

Gustavo Zamboni

Zael Eletroeletrônica LTDA
tel +55 (11) 2577 2233
tel +55 (11) 2276 2227
fax +55 (11) 5589 2943
email gzamboni at zael.com.br


-----Mensagem original-----
De: masoch-l-bounces at eng.registro.br
[mailto:masoch-l-bounces at eng.registro.br] Em nome de Marcio Gomes
Enviada em: quarta-feira, 26 de setembro de 2007 10:56
Para: Mail Aid and Succor, On-line Comfort and Help
Assunto: [MASOCH-L] Impressao de Codigo de Barras e Formularios em Laser

Pessoal,

Gostaria de indicação de soluções de impressão de códigos de barra 2 de
5 interlacado
e formulários em impressoras laser.

Até onde fui :

- Os formulários podem ser enviados em overlay p/ impressora e armazenados
como um macro a ser chamado junto com os dados variaveis na hora
da impressão. Por exemplo, envio a máscara do boleto em overlay/macro e
com os dados da cobrança relativos a cada emissão, envio a chamado do
macro.

Existem soluções prontas do tipo WISIWIG, que fazem o desenho do formulário
e preparam o arquivo p/ upload do macro p/ a impressora laser. Entretanto
consegui um rotina de baixo custo que pega uma saida direcionada p/ arquivo
pcl e o transforma no arquivo de upload do macro p/ impressora..

- O Código de barras, pelo que entendo tenho que ter as fontes do código
de barras na impressora, podendo as mesmas serem enviadas por upload,
ou estarem permanentemente armazendas na impressora através de uma flash.
Prefiro o upload, que fica multi-impressoras.

As questões são :

- Alguem conhece um software de baixo custo p/ gerar os formulários que seja
mais amigavel que o pcoverly ?

- Estou tentando conseguir fontes 2de5interlaced, e o custo é poibitivo
ou só
são licenciadas por 1 ano.. Alguém tem outra solução ?

Caso precisem enviar mensagens em pvt, utilizem o
[mpg] [at]   [microlink.com.br]

[]s
Marcio Gomes


__
masoch-l list
https://eng.registro.br/mailman/listinfo/masoch-l