Visual Basic - Problema al imprimir Codigo de Barras

Buenos dias a todos,

De antemano gracias por tomarse la molestia de leer mi consulta...

Resulta que tengo una caja de texto con el tipo de letra Barcode 128 y de esa manera puedo ver el codigo de barras en pantalla, hasta ahi todo bien, el problema surge cuando mando imprimir la caja de texto, no salen las barras, salen los digitos que se ponen aunque en la pantalla se vea el codigo de barras... Imprimo con el siguiente codigo:

Printer.Print Text1.text
Printer.EndDoc

Que tengo que hacer para que salga impreso el codigo de barras?


Gracias!!!!

Holas creo que no se puede imprimir sin hacer antes la conversion, yo lo hago de la siguiente forma:

Dim lcStart, lcStop, lcRet, lcCheck
Dim lnLong, lnI, lnCheckSum, lnAsc, aa

Public Sub Barra128_B(tcString)
lcStart = Chr(104 + 32)
lcStop = Chr(106 + 32)
lnCheckSum = Asc(lcStart) - 32
lcRet = tcString
lnLong = Len(lcRet)
For lnI = 1 To lnLong
lnAsc = Asc(Mid(lcRet, lnI, 1)) - 32
If Not lnAsc >= 0 And lnAsc <= 99 Then
lcRet = Replace(lcRet, lnI, 1, Chr(32))
lnAsc = Asc(Mid(lcRet, lnI, 1)) - 32
End If
lnCheckSum = lnCheckSum + (lnAsc * lnI)
Next
aa = lnCheckSum Mod 103
aa = aa + 32
lcCheck = Chr(aa)
lcRet = lcStart + lcRet + lcCheck + lcStop
'---------------- Esto es para cambiar los espacios y caracteres invalidos
lcRet = Replace(lcRet, Chr(32), Chr(232))
lcRet = Replace(lcRet, Chr(127), Chr(192))
lcRet = Replace(lcRet, Chr(128), Chr(193))
'------------------------------------------------------------
Label1.Caption = lcRet ' label no visible y con MS Sans Serif era para probar
Label2.Caption = lcRet ' este con BarCode 128
End Sub

como yo rescato valores desde otro formulario llamo la subrutina de esta forma
lo puedes hacer colocando el codigo dentro de commandbutton es lo mismo.

Private Sub Text2_Change()
Call Barra128_B(Text2.Text)
Clipboard.Clear
Clipboard.SetText lcRet
end sub

por ultimo como yo imprimo el formulario completo ocupo

Me.PrintForm
Printer.EndDoc

Bueno espero que te sirva suerte saludos.

pd: aca el link de la Fuente Barcode128
http://www.megaupload.com/?d=4N17DGU3

¿No será que al objeto Printer TAMBIEN debes indicarle que utilice el tipo de letra Barcode 128 (usando la propiedad FontName)?

En Efecto, cambiando la propiedad FontName del objeto printer ya me imprime las barras!! Gracias... peroooo cuando ya salen, el lector no las lee :( porque puede ser??


Gracias y saludos!!

Hola que tal, el lector no las lee si no le concatenas unos "*" (asterisco) sin las comillas evidentemente al inicio y al final del codigo es decir... si quieres que tu codigo de barras sea 12345 tienes que indicarle al sistema que concatene *12345*, de tal forma que el codigo más o menos te quedaria asi.

printer.print "*" & textbox1.tex & "*"

Lo que hacen los * es "accionar" el lector... despues lee lo que tenga en cadena y "Cierra " el lelctor para su envio.

Espero te haya podido ayudar... Saludos

Primeramente muchas gracias por responder, te cuento que hice lo que comentas de concatenar los asteriscos, y sigue imprimiento bien las barras pero aun no las lee el lector, tengo 3 lectores diferentes y ninguno las lee, he intentado con los mismos lectores con otras barras y si las lee, lo que me hace pensar que los scaners estan bien y el problema son las barras que se imprimen con el Barcode 128 desde mi aplicacion.

Seguiré intentando.......


Saludos.

y probaste agrandando la impresion o revisaste en el manual de los lectores si leen barcode128 porque no todos lo leen...

Asi es no todos los lectores leen el code 128 por default sino hay que configurarlo, te recomiendo que uses el cod39.. que es el standar que usan todos los lectores por default... y otra es en donde imprimes el codigo de barras por que si lo imprimes en laser es mas sencillo que lo lea pero si lo haces en chorro de tinta no va a ser tan secillo su lectura, Saludos!

mucha razon si no lo imprimes en laser tienes que imprimir mas grande, y lo otro que acabo de probar es que si no haces la conversion con el codigo que puse en la primera respuesta el lector no lo lee.
ejemplo si tienes un text con texto 75556 y le pones fuente bcode128 efectibamente te mostrara ||||||||||||| pero eso es superficial.

en el ejemplo coloque
Label1.Caption = lcRet ' label no visible y con MS Sans Serif para ver que devolvia la conversion en este label me muestra los siguiente cuando realizo la conversion |75556.| pero no son los tipicos "|" palitos XD son mas cortos y anchos

Label2.Caption = lcRet ' este con BarCode 128 de fuente y en este me muestra el |||||||| correcto del 75556 de la conversion.
espero q esto te sirva y revisa el manual de como configurar el lector para bcode128 si es que lo lee chauu suerte.