• Lunes 18 de Noviembre de 2024, 05:25

Autor Tema:  Re: imprimir numeros alineados a la derecha con printer  (Leído 2335 veces)

maricel

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: imprimir numeros alineados a la derecha con printer
« en: Miércoles 8 de Enero de 2003, 21:07 »
0
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

piluka

  • Nuevo Miembro
  • *
  • Mensajes: 7
    • Ver Perfil
Re: imprimir numeros alineados a la derecha con printer
« Respuesta #1 en: Jueves 9 de Enero de 2003, 10:12 »
0
prueba lo siguiente:

Printer.Print Tab(69); "SUBTOTAL :"; right(space(99) & Format(mon1, "###,###,##0"), 99)
...

un saludo

javierbalk

  • Miembro MUY activo
  • ***
  • Mensajes: 142
  • Nacionalidad: 00
    • Ver Perfil
    • Print preview y grabar PDF en Visual Basic 6
imprimir numeros alineados a la derecha con printer
« Respuesta #2 en: Lunes 13 de Enero de 2003, 04:36 »
0
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