Função para gerar Código de Barras

Gilberto M Silva · Mensagem por **Gilberto M Silva** » 26 Jul 2007 16:35

Veja se ela funciona. Se funcionar, ótimo. Caso contrário, tenho outra biblioteca aqui. Se não me engano, foi feito pela XPTO. Mas nessa eu não sei se consta o código EAN13.

blz, vou testar.

Mensagem por **sygecom** » 26 Jul 2007 16:37

Gilberto M Silva escreveu:Usando a função que o leonardo postou, a partir dela como posso imprimir o codigo de barras em uma hp por exemplo.

Eu usava o o PRWIN para imprimir codigo de barra...alem de imprimir facilmente qualquer codigo de barra...vc podera usar tb. pra outras inumeras coisas que o mesmo lhe proporciona....e o valor do prwin comparando as funções dele é micharia...de uma olhada no link abaixo:
http://www.vagucs.com.br/prwin.htm

Abraços
Leonardo Machado

Mensagem por **Maligno** » 26 Jul 2007 16:43

Gilberto M Silva escreveu:
Veja se ela funciona. Se funcionar, ótimo. Caso contrário, tenho outra biblioteca aqui. Se não me engano, foi feito pela XPTO. Mas nessa eu não sei se consta o código EAN13.
blz, vou testar.

Esqueci de dizer. Talvez você não perceba de imediato lendo o NG da Light & Dark, mas ele gera código para impressão PCL5 também. Ou seja, para impressoas HP LaserJet. Basta informar no segundo parâmetro da função geradora, se não me engano.

Gilberto M Silva · Mensagem por **Gilberto M Silva** » 26 Jul 2007 17:05

E se eu gerar num arquivo tipo DOC abrir no word e imprimir?

Gilberto

Mensagem por **Maligno** » 26 Jul 2007 17:09

Até daria, mas que eu saiba, o Word não gera código de barras EAN13. Você precisaria encontrar fontes específicas para esse código. Se esse esquema servir, dá certo também, claro.

Gilberto M Silva · Mensagem por **Gilberto M Silva** » 26 Jul 2007 17:27

ou tentar o PRWIN 1° depois vejo como faço talvez o PRWIN resolva pois são poucos produtos que não tem código de barras, muito poucos.

Gilberto.

Mensagem por **Maligno** » 26 Jul 2007 17:33

Se ele te resolver, apesar de ser um produto pago, tanto melhor. Acredito, pelo que o pessoal daqui comenta, que deve resolver. Se não der, pelo menos você tem outro recurso.

Mensagem por **sygecom** » 26 Jul 2007 17:44

Gilberto M Silva escreveu:ou tentar o PRWIN 1° depois vejo como faço talvez o PRWIN resolva pois são poucos produtos que não tem código de barras, muito poucos.

Gilberto.

Use a versão Demo para fazer todos os seus testes...depois se lhe agradar compre.

Abraços
Leonardo Machado

Gilberto M Silva · Mensagem por **Gilberto M Silva** » 26 Jul 2007 21:55

Vou fazer isto acho que vai servir pois são poucos produtos para etiquetar, baixei o demo vou dar uma olhada nele e testar.
obg, Boa noite.

Gilberto.

Mensagem por **sygecom** » 26 Jul 2007 22:02

Gilberto M Silva escreveu:Vou fazer isto acho que vai servir pois são poucos produtos para etiquetar, baixei o demo vou dar uma olhada nele e testar.
obg, Boa noite.

Gilberto.

Código: Selecionar todos

   set printer to C:\barras.prn
   set device to printer
   @ prow(),pcol() say "$IMP$=1;$SPO$=SIS;"  // 1=impressora padrao,SIS=nome spooler 
   @ PROW()+1,0 SAY ""

   IF vRESP="I"
      @ PROW()+vLIN,05 SAY vNOM
      @ prow()+2,05 say ["C]+vbarra+[;T7;A13;O0"]
      @ prow()+1,0 say "" // para o PRWIN entender que o relat¢rio acabou
   ENDIF

   SET PRINTER TO
   set device to screen
   NETCANCEL("LPT1")

Mensagem por **sygecom** » 26 Jul 2007 22:03

Tche, não saiu certo alguns caracter....aqui nesse exemplo....vou te mandar por email...

Gilberto M Silva · Mensagem por **Gilberto M Silva** » 27 Jul 2007 09:10

Blz, Leo, obg, vou aguardar.

Mensagem por **sygecom** » 27 Jul 2007 09:14

Gilberto M Silva escreveu:Blz, Leo, obg, vou aguardar.

Já mandei ontem para o seu hotmail.

Gilberto M Silva · Mensagem por **Gilberto M Silva** » 27 Jul 2007 09:20

não chegou,, Leo qual e´o caracter q não ficou legivel???

Gilberto M Silva · Mensagem por **Gilberto M Silva** » 27 Jul 2007 09:24

Há!! hotmail, blz vou verificar...