Those who use XPRINT might benefit from something like...
Code:
XPRINT SET JUSTIFY RIGHT XPRINT SET POS xPos, ypos ' where xpos= the [b]right[/b] edge of the text to be printed XPRINT X$ ' print the text right-justified
XPRINT SET JUSTIFY RIGHT XPRINT SET POS xPos, ypos ' where xpos= the [b]right[/b] edge of the text to be printed XPRINT X$ ' print the text right-justified
Xprint USING$ ("&", RSET$(Format$(yournumber, "#,.##"), %Column_size))
MACRO fmt_Int(intval) = RSET$(FORMAT$(intval,"* #,"),7) MACRO fmt_Bigint (X) = RSET$(FORMAT$(X,"#,"),14) MACRO fmt_money (curval) = RSET$(FORMAT$(curval, "$#,.00"),12) MACRO fmt_money2 (curval)= RSET$(FORMAT$(curval, "$#,.00 ;$#,.00-"),12) ' gives '0' in dollar position MACRO fmt_money3 (curval)= RSET$(FORMAT$(curval, "$#,.00 ;$#,.00-; "),12) ' gives 'blank when zero' MACRO fmt_Int0(intval, fsize) = RSET$(LTRIM$(STR$(intval)), fsize USING "0")
We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, and to analyze site activity. For additional details, refer to our Privacy Policy.
By clicking "I AGREE" below, you agree to our Privacy Policy and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.
Leave a comment: