As Cimperiali implied, you will have to use the CurrentX property. Then, in assosiation with the TextWidth, you can determine where to start. Note tha in the code I used Me instead of Printer, which results in the text being printed on the form.

Dim sWidth as Long
' compute point where it must be alligned, you can give this a fixed value if you want
sWidth = me.TextWidth("000000.00")

me.CurrentX = sWidth - me.TextWidth("1234.56")
me.print "1234.56"
me.CurrentX = sWidth - me.TextWidth("123.45")
me.print "123.45"
me.CurrentX = sWidth - me.TextWidth("12345.67")
me.print "12345.67"




Tom Cannaerts
[email protected]

Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the universe trying to produce bigger and better idiots. So far, the universe is winning -- Rich Cook