Campo multilínea
Tengo un campo multilínea que al intentar imprimir con el objeto printer se me sale fuera del folio, es decir no corta la línea y sigue escribiendo com si hubiera papel a la derecha.
¿Puedo solucionarlo y que cambie de línea cuando se acabe el ancho del papel?
¿Puedo solucionarlo y que cambie de línea cuando se acabe el ancho del papel?
1 Respuesta
Respuesta de kieleze
1
Es que los textbox multilínea en realidad son texto lineal... que esta acomodado para que baje solo al llegar al limite del textbox...
¿Me explico?
Creo que el comando para obligar a que baje el texto debería ser algo así como
vbcr o vbrc
Ademas tienes que especificar los margenes...
Const TOP_MARGIN = 1400
Const LEFT_MARGIN = 1400
bottom_margin = Printer.ScaleTop + Printer.ScaleHeight - 1440
Printer.CurrentY = TOP_MARGIN
Printer.CurrentX = 3000
Printer.Print titulo & vbTab & vbTab & "Fecha: "; Format$(Date) & vbTab & "hora: "; Format$(Time) & vbCr
Printer.CurrentX = LEFT_MARGIN
¿Me explico?
Creo que el comando para obligar a que baje el texto debería ser algo así como
vbcr o vbrc
Ademas tienes que especificar los margenes...
Const TOP_MARGIN = 1400
Const LEFT_MARGIN = 1400
bottom_margin = Printer.ScaleTop + Printer.ScaleHeight - 1440
Printer.CurrentY = TOP_MARGIN
Printer.CurrentX = 3000
Printer.Print titulo & vbTab & vbTab & "Fecha: "; Format$(Date) & vbTab & "hora: "; Format$(Time) & vbCr
Printer.CurrentX = LEFT_MARGIN
