Right Justify

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#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