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.
Em homenagem a Paulo Cesar Toledo
https://www.pctoledo.org/
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.