Enviado: 26 Jul 2007 16:35
blz, vou testar.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.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.
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: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.
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 escreveu:blz, vou testar.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.
Use a versão Demo para fazer todos os seus testes...depois se lhe agradar compre.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.
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")
Já mandei ontem para o seu hotmail.Gilberto M Silva escreveu:Blz, Leo, obg, vou aguardar.