Alinear Nros. en la Impresora
Publicado por PLOKISHEITOR (7 intervenciones) el 16/08/2002 16:01:48
hola a quien sea es mi 2da vez que consulto y gracias a la buena respuesta he vuelto a consultar necesito alinear texttos a la derecha en la imresion de una factura y me salen todos en el eje(x), no se pienso en determinar la longitud maxima y agregarle \"000\" pero no encuentro la formula mas sana y mi otra teoria es determinar la longitud (len) y ir corriendo las posiciones de acuerdo a la longitud.... este lo extraje no esta bien pero es la idea no...
ejey = 800
For CONTADOR = 0 To 95 Step 5
If Factura.Text2(CONTADOR) <> \"\" Then
Printer.CurrentY = ejey \' cantidad
Printer.CurrentX = 1350
Printer.Print Factura.Text2(CONTADOR) // esto me imprime asi (*)
ejey = ejey +800
endif
next
(*) 1.000.000
1.750
589
// me entienden:; la verdad es que el text2(index), le aplico el text2(index).Alignment = 1 y nada
me sale todos en la posicion del eje de impresion(CurrentX )
ejey = 800
For CONTADOR = 0 To 95 Step 5
If Factura.Text2(CONTADOR) <> \"\" Then
Printer.CurrentY = ejey \' cantidad
Printer.CurrentX = 1350
Printer.Print Factura.Text2(CONTADOR) // esto me imprime asi (*)
ejey = ejey +800
endif
next
(*) 1.000.000
1.750
589
// me entienden:; la verdad es que el text2(index), le aplico el text2(index).Alignment = 1 y nada
me sale todos en la posicion del eje de impresion(CurrentX )
Valora esta pregunta
0