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

[Marcio Gomes]

Ok.. Eu tenho algo parecido em PHP,
estou pensando em utilizar a idéia p/ gerar
o código PCL/EPS/PS de acordo com o que
DANTON falou,.

[]s

Gustavo Zamboni escreveu:
> 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
>
>
>
> __
> masoch-l list
> https://eng.registro.br/mailman/listinfo/masoch-l
>