Right Justify

Category: Printing

Date: 03-28-2012

Return to Index


 
'Compilable Example:
#Compiler PBWin 9, PBWin 10
#Compile EXE
 
Function PBMain () As Long
   XPrint Attach Default
   Local x As Long
   For x = 1 To DataCount
      a$ = Read$(x)
      '       PRINT;TAB(40 - LEN(a$));a$
      XPrint Print Tab(40 - Len(a$));a$
   Next x
   Data "10.50", "144.35", "1,034.99"
   XPrint Close
End Function
 
'gbs_01048
'Date: 03-10-2012
   


created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm