Right-Justifying Output

Right-Justifying Output

My VB program produces as output, paper reports such as Income Statements and Balance Sheets. How do we get the numbers to print as they should, that is, dollars and cents justified to the right, within columns.

Here is an example of how you can do right justification. Let’s say you want to right justify a dollar value into a 10 character field.

Dim sTemp as StringDim sFormattedField as StringsTemp = Format$(1000, “$###0.00”)sFormattedField = Space$(10 – len(sTemp)) + sTemp
That will put 2 spaces (10 – 8) in front of $1000.00. If the value changes to $100.00, for example, you will get 3 spaces in front.


Share the Post: