Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Imprimir 2 codigos en una sola linea

Estas en el tema de Imprimir 2 codigos en una sola linea en el foro de Visual Basic clásico en Foros del Web. Hola a todos, les cuento que estoy comenzando en la programación en visual basic y tengo el siguiente problema, necesito imprimir 2 códigos de barra ...
  #1 (permalink)  
Antiguo 13/01/2012, 16:09
 
Fecha de Ingreso: enero-2012
Mensajes: 1
Antigüedad: 12 años, 3 meses
Puntos: 0
Sonrisa Imprimir 2 codigos en una sola linea

Hola a todos, les cuento que estoy comenzando en la programación en visual basic y tengo el siguiente problema, necesito imprimir 2 códigos de barra en una sola linea,en una impresora de térmica bixolon sp350plus la pequeña aplicación la comencé hacer en vb6, logre imprimir los dos códigos pero me quedan juntos, existe alguna posibilidad de separarlos, utilice un espacio pero ese espacio lo toma como carácter e imprime el código de barra con ese carácter, tengo el siguiente código:

Private Sub Command1_Click()

FName = "Code128"
FSize = 20

Printer.FontSize = 9.5
Printer.FontName = "FontControl"
Printer.Print "r";

Printer.FontName = FName
Printer.FontSize = FSize

Printer.Print "ZKSVkZw=" + " " + "ZKSVkZw=";
Printer.EndDoc


End Sub

Private Sub Form_Load()
For Each prnPrinter In Printers
If prnPrinter.DeviceName = "BIXOLON SRP-350plus" Then
Set Printer = prnPrinter
Exit For
End If
Next


Dim FName As String
Dim FSize As Byte

End Sub

espero que me puedan ayudar se los agradecería mucho, de ante mano muchas gracias.
  #2 (permalink)  
Antiguo 13/01/2012, 16:32
Avatar de erbuson  
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 14 años, 5 meses
Puntos: 53
Respuesta: Imprimir 2 codigos en una sola linea

Hola, el objeto Printer dispone de las Propiedades CurrentX y CurrentY que puedes utilizar para tabular antes de escribir.

Después de Imprimir CurrentX (Columna) está actualizado, imagina por ejemplo que imprimes un valor, comprobando CurrentX sabes donde va a escribir, aumentándolo lo desplazas.

Printer.CurrentX = 1000
Printer.Print "Uno"

Printer.CurrentX = 2000
Printer.Print "Dos"

Esta es la idea, como verás es facil de este modo solucionar tu problema.

Saludos
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...

Etiquetas: basic, codigos, programa, vb6, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:25.