Problemas con el print
Publicado por Gmo (22 intervenciones) el 30/12/2003 14:09:42
Hola amigos tengo serio problema me pasaron un codigo para alinear cantidades a la derecha estas cantidades son fraccionarias cuando mando un debug.Print esto lo hace pero cuando lo mando a la impresora ya no lo hace me desajusta la aliniacion Urge su ayuda chavos les mando el codigo que me hace esto ¿Por que con el Printer.Print no se imprime alinada las cantidades a la derecha?
Function Formatea$(num As Variant, Masc$)
Dim L%
L% = Len(Masc$)
Formatea$ = Right$(Space$(L%) + Format$(num, Masc$), L%)
End Function
La mando a llamar
Debug.Print Tab(45); Formatea$(Text1.Text, "##,###.00")
Debug.Print Tab(45); Formatea$(Text2.Text, "##,###.00")
saludos bye
Function Formatea$(num As Variant, Masc$)
Dim L%
L% = Len(Masc$)
Formatea$ = Right$(Space$(L%) + Format$(num, Masc$), L%)
End Function
La mando a llamar
Debug.Print Tab(45); Formatea$(Text1.Text, "##,###.00")
Debug.Print Tab(45); Formatea$(Text2.Text, "##,###.00")
saludos bye
Valora esta pregunta
0