How to align amount to the right like in listview?
MY CODES:
PIC_PRINT.Picture = Nothing
Printer.FontName = "arial"
PIC_PRINT.FontBold = True
PIC_PRINT.FontSize = 9
PIC_PRINT.Print "Fullname :" & vbNewLine
PIC_PRINT.Print "Client :" & vbNewLine
PIC_PRINT.Print ""; _
Tab(2); ""; _
Tab(4); "Cut-off"; _
Tab(25); "Savings"; _
Tab(38); "Withdrawn"; _
Tab(55); "Balance"; _
Tab(1); " =============================================================="
With LV_SAVINGS_LIST
For i = .ListItems.Count To 1 Step -1
If .ListItems(i).Selected Then
For Each ITM In .ListItems
If ITM.Checked = True Then
PIC_PRINT.FontBold = False
PIC_PRINT.Print ""; _
Tab(2); ""; _
Tab(4); ITM.SubItems(3); _
Tab(25); ITM.SubItems(4); _
Tab(38); ITM.SubItems(5); _
Tab(55); ITM.SubItems(6);
End If
Next ITM
End If
Next i
End With