RE:qb45
Publicado por josep maria (3 intervenciones) el 27/06/2005 10:14:15
perdona el retraso, es que hasta hoy no encontré lo que hice hace 5 años del código de barras, no sé si te servirá pero te envio un trozo de programa que hacía servir para editar códigos de barra ean13, también tengo el cálculo para encontrar el dígito 13 de control
lprint chr$(19);"k";chr$(2);
for i=1 to 13
lprint mid$(art$,i,1);
next i
lprint chr$(27);"!";chr$(0)
lprint chr$(19);"k";chr$(2);
for i=1 to 13
lprint mid$(art$,i,1);
next i
lprint chr$(27);"!";chr$(0)
Valora esta pregunta
0