Visual Basic - imprimir con objeto printer y alinear a la derech

Life is soft - evento anual de software empresarial
 
Vista:

imprimir con objeto printer y alinear a la derech

Publicado por Patricio Diaz (3 intervenciones) el 20/10/2001 01:46:42
Hola Amigos deseo hacer lo soguiente usando el printer

Codigo Producto Cantidad Precio Subtotal
10 Televisor COlor 14" 1 14.000 14.000
125 Radio 2 1.000 2.000
1001 Auto 1 125.000 125.000

alguien me ayude por fa
tengo problemas al justificar y NO quiero utilizar el PrintForm
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:imprimir con objeto printer y alinear a la dere

Publicado por Iñaki (502 intervenciones) el 20/10/2001 19:35:49
Lo primero que deberías hacer es escoger una fuente de letra de paso fijo, es decir que una "m" ocupe lo mismo que una "i".
Declarar una variable string de 15 caracteres (mas o menos) y
dim precio_cadena as string
dim precio_cadena_alineado as string
almacenar en esta variable el precio ya formateado.
precio_cadena = "15.000"
Obtener el tamaño del precio sin caracteres en blanco
tam= len(rtrim(precio_cadena))
precio_cadena_alineado = space(15-tam) & rtrim(precio_cadena)
Esto debería darte un campo con espacios a la izquierda y el dato alineado a la derecha.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir con objeto printer y alinear a la dere

Publicado por PonchoWare (88 intervenciones) el 21/10/2001 02:45:21
Otra idea:
Me imagino que para imprir estas usando Printer.Print,

Dim strTexto as String

strTexto="15.000" 'Si es necesario usas Format(....
Printer.CurrentY=y
Printer.CurrentX=x-Printer.TextWidth(strTexto)
Printer.Print strTexto

Notese que x es el fin y no el principio de la alineacion.
Esta manera es independiente del texto, pero conviene una fuente fija como Courier New.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar