Impresión en visual basic 5
Hola a a todos, soy nuevo en esto, mi pregunta es la siguiente tengo una aplicación que fui desarrollando en Visual Basic 5 es un sistema de facturación con cta cte, stock etc, nunca tuve problemas solo que ahora me encuentro que necesito lo siguiente: en la parte de factura "B" en la descripción del articulo lo realizo con un textbox que es multilínea, al ingresar varias lineas por ejemplo 15, cdo lo imprimo este tiene que ir alineado en la posición 30 para que consida dentro del formulario preimpreso, el problema es que la primer liá sale bien en la posición 30 y las demás salen al borde del margen izquierdo y no consigo alinear todas las lineas a la posición 30, la impresión la hago toda con el print, gracias
Este seria una parte del código
Printer.CurrentY = 20
Printer.CurrentX = 30
Printer.Print TXTDenominacion
txtdenominacion es el Tex box multilínea en el que se escribe el detalle de la factura
Este seria una parte del código
Printer.CurrentY = 20
Printer.CurrentX = 30
Printer.Print TXTDenominacion
txtdenominacion es el Tex box multilínea en el que se escribe el detalle de la factura
1 respuesta
Respuesta de Roberto Alvarado
1
Lo primero es que debes saber cuantas lineas tiene el textbox para poder imprimir cada line en diferentes posiciones.
También si no se esta colocando en la posición 30 que es la que necesitas, imprime antes una cadena de cero caracteres o sea, "", para que se posicione y luego si en la misma posición 30 si imprimes el texto.
También si no se esta colocando en la posición 30 que es la que necesitas, imprime antes una cadena de cero caracteres o sea, "", para que se posicione y luego si en la misma posición 30 si imprimes el texto.
Gracias por tu tiempo, me podrías dar un ejemplo de como debería hacer ya que estoy en una laguna y no se como empezar, o te dejo mi correo [email protected], yo ya te agregue si podes aceptame
Printer.CurrentY = 20
Printer.CurrentX = 30
Printer.Print ""
Printer.CurrentY = 20
Printer.CurrentX = 30
printer.Print SubSTr(TXTDenominacion,1,20)
Printer.CurrentY = 40
Printer.CurrentX = 30
printer.Print SubSTr(TXTDenominacion,21,20)
Printer.CurrentY = 60
Printer.CurrentX = 30
Printer. Print SubSTr(TXTDenominacion, 41,20)
... y asi sucesivamente dependiendo del numero de lineas que tienes que imprimir y asumiendo que la linea tiene 20 caracteres.
Printer.CurrentX = 30
Printer.Print ""
Printer.CurrentY = 20
Printer.CurrentX = 30
printer.Print SubSTr(TXTDenominacion,1,20)
Printer.CurrentY = 40
Printer.CurrentX = 30
printer.Print SubSTr(TXTDenominacion,21,20)
Printer.CurrentY = 60
Printer.CurrentX = 30
Printer. Print SubSTr(TXTDenominacion, 41,20)
... y asi sucesivamente dependiendo del numero de lineas que tienes que imprimir y asumiendo que la linea tiene 20 caracteres.
Disculpa mi ignorancia que seria substr, ya que al ejecutar me lo marca como error
Substr es para tomar o extraer un substring de una cadena, si estas trabajando con vb5 eso funciona desde vb4
