CLAUDIA
06 de Febrero del 2006

HOLA, LES TENGO UNA PEQUE脩A CONSULTA QUE ME A TENIDO DE CABEZA ESTOS ULTIMOS DIAS; COMO PUEDO HACER QUE MEDIANATE MI APLICACION EN VISUAL BASIC ME PERMITA LEER E IMPRIMIR UN CODIGO DE BARRAS. YO SE QUE ES POSIBLE PORQUE LO HE VISTO, POR FAVOR ORIENTENMENTE. DESDE YA MUCHAS GRACIAS POR SU AYUDA.

Rosa
06 de Febrero del 2006

Hola, en este foro ya se ha tocado muchas veces ese tema, te env铆o una de las respuestas que he dado anteriormente:

Primero para leer un c贸digo de barras con una pistola, s贸lo debes pistolear el c贸digo poniendo el foco en alguna caja de texto, la pistola lo decodifica y lo escribe en la caja de texto. Ahora, no necesariamente la pistola decodifica y da un ENTER, eso depende de c贸mo est茅 configurada la pistola, para eso viene con un manual de configuraci贸n.
Para crear un c贸digo de barras, s贸lo tienes que bajar un font, puede ser el font 39, hay muchas p谩ginas de donde se puede bajar, s贸lo buscas font 39 o font 3 de 9, cuando lo tengas lo instalas en tu pc (panel de control-fonts) ahi lo instalas y luego lo usas como si fuera un arial o verdana o cualquier otro font, s贸lo que para que el c贸digo pueda ser reconocido se debe agregar un asterisco adelante y atr谩s del c贸digo que quieres generar. Ahi mando un ejemplo:

Text1.Font = "Code39Demo"
Text1.Font.Size = 24
Text1.Text = "*123456*"

para que imprimas el c贸digo de barras s贸lo tienes que imprimir la caja de texto asi:

Printer.print Text1.Text


123456 es el c贸digo que quieres generar (los * le indican a la pistola d贸nde comienza y acaba el c贸digo de barras) y Code39Demo es el nombre del font que hayas bajado.

Te estoy enviando a tu correo un ejemplo con el font incluido.