Right justify

[AvdK]

Is there a way to right justify the output to a printer. For example, I have an order printing out with the itemized amounts left justified so it looks like this:


Results:

900.00
45.00
1.99


I want these results justified to the right so that the decimal point is aligned:

900.00
45.00
1.99

I use the printer.print method to print to the printer. How can this be done?

[space_monkey]

You can do...

dim strJustify as string
 
strJustify = space(10)
 
Rset strJustify = "900.00"

I do this alot with reports that i need to format.

HTH

[AvdK]

Thanks for your fast reply Space Monkey, but how do I use Rset in this code:

printer.print rstPBHnd.fields("Results")

I have a couple of records that I want to be printed in a column with the decimal point aligned. I have tried to use Format but that didn't work either.

[space_monkey]

Is there a reason you can't do this?

dim strJustify as string
strJustify = space(10)
 
'.........
Rset strJustify = rstPBHnd.fields("Results")
Printer.Print strJustify

[AvdK]

Yes, I figured that out eventually. Rset works, but only if the amount of characters is the same.
If I have a result of 9.8 and another of 10.2 then the decimal points will not be aligned. Do I have to check the length of each record and adjust the amount of space acordingly before printing, or is there an faster way ?

[trisuglow]

Is this ok?

Private Sub Form_Load()
 
Debug.Print RAlign(9.8)
Debug.Print RAlign(10.2)
Debug.Print RAlign(900)
Debug.Print RAlign(45)
Debug.Print RAlign(1.99)
 
End Sub
 
Private Function RAlign(pValue As Single) As String
  RAlign = Right$(Space(10) & Format(pValue, "0.0"), 10)
End Function

[Hack]

Is this ok?

Private Sub Form_Load()
 
Debug.Print RAlign(9.8)
Debug.Print RAlign(10.2)
Debug.Print RAlign(900)
Debug.Print RAlign(45)
Debug.Print RAlign(1.99)
 
End Sub
 
Private Function RAlign(pValue As Single) As String
  RAlign = Right$(Space(10) & Format(pValue, "0.0"), 10)
End Function

Slick!

[space_monkey]

The other thing you could do would be.

dim strJustify as string
strJustify = space(10)
 
'.........
Rset strJustify = Format(rstPBHnd.fields("Results"), "0.00")
Printer.Print strJustify

that would force it to have two decimals

[AvdK]

Thanks for your reply, I will need to do some finetuning for the different amount of chars. I will look into that tomorrow.