SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: maricel en Miércoles 8 de Enero de 2003, 21:07
-
Les cuento que la moneda que uso es el peso chileno, que no cuenta con decimales, lo único que necesito es la tabulación a la izquierda de los números que no sé cómo lograrla, pues los puntos de los miles me desordenan todo.
Esto es lo que tengo en estos momentos:
Printer.Print Tab(69); "SUBTOTAL :"; Tab(99 - Len(Format(mon1, "###,###,##0"))); Format(mon1, "###,###,##0")
Printer.Print Tab(69); "DESCUENTO :"; Tab(99 - Len(Format(mon2, "###,###,##0"))); Format(mon2, "###,###,##0")
Printer.Print Tab(69); "TOTAL NETO :"; Tab(99 - Len(Format(mon3, "###,###,##0"))); Format(mon3, "###,###,##0")
Printer.Print Tab(69); "TOTAL IVA :"; Tab(99 - Len(Format(mon4, "###,###,##0"))); Format(mon4, "###,###,##0")
Printer.Print Tab(69); "TOTAL FACTURA:"; Tab(99 - Len(Format(mon5, "###,###,##0"))); Format(mon5, "###,###,##0")
y un ejemplo del resultado es:
1.850
25.841
125.852
12.842
300
(algo similar a esto)
-pero debería quedar así
1.850
25.841
125.852
12.842
300
Les envío desde ahora un gran saludo ...
Esperanzada y agradecida desde ya,
Maricel
He probado varias formas con currentx,textwidth, etc y en todas sucede lo mismo con los números con formato...¿que puedo hacer?
:o:o
-
prueba lo siguiente:
Printer.Print Tab(69); "SUBTOTAL :"; right(space(99) & Format(mon1, "###,###,##0"), 99)
...
un saludo
-
Con el TextWidth debería andar.
Dim iTexto
iTexto = Format (...
Printer.CurrentX = 12000 - Printer.TextWidth (iTexto)
Printer.Print iTexto
En este caso 12000 sería el lugar donde quieres que la columna termine, en Twips.
Saludos,
Javier