Microsoft KB Archive/103829: Difference between revisions
From BetaArchive Wiki
(importing KB archive) |
m (Text replacement - """ to """) |
||
Line 18: | Line 18: | ||
<pre> USE \foxprow\tutorial\customer.dbf | <pre> USE \foxprow\tutorial\customer.dbf | ||
SET PRINT FONT | SET PRINT FONT "Arial",12 && sets the font for @ ... SAYs to print | ||
SET DEVICE TO PRINT | SET DEVICE TO PRINT | ||
mrow=5 && the beginning print row | mrow=5 && the beginning print row | ||
Line 27: | Line 27: | ||
* string and adds commas for formatting | * string and adds commas for formatting | ||
strytd=TRANSFORM(ytdpurch, | strytd=TRANSFORM(ytdpurch,"999,999.99") | ||
mslot=LEN(strytd) && the number of characters in the field | mslot=LEN(strytd) && the number of characters in the field | ||
mcolumn=30 && the position for the rightmost character | mcolumn=30 && the position for the rightmost character | ||
Line 34: | Line 34: | ||
* to left until the specified position in the field is a space | * to left until the specified position in the field is a space | ||
DO WHILE SUBSTR(strytd,mslot,1)<> | DO WHILE SUBSTR(strytd,mslot,1)<>" " | ||
@mrow,mcolumn SAY SUBSTR(strytd,mslot,1) | @mrow,mcolumn SAY SUBSTR(strytd,mslot,1) |
Revision as of 09:43, 20 July 2020
HOWTO: Right-Justify Numeric Fields with @ ... SAYID: Q103829 The information in this article applies to:
SUMMARYIf a proportional font is used with @ ... SAY commands to output fields to a printer, the fields will not appear right-justified. To work around this problem, the following code example could be implemented in a coded report to create right-justified numeric fields with a proportional font. USE \foxprow\tutorial\customer.dbf SET PRINT FONT "Arial",12 && sets the font for @ ... SAYs to print SET DEVICE TO PRINT mrow=5 && the beginning print row DO WHILE RECNO()<15 && prints the first 14 records * The following line converts the numeric field to a * string and adds commas for formatting strytd=TRANSFORM(ytdpurch,"999,999.99") mslot=LEN(strytd) && the number of characters in the field mcolumn=30 && the position for the rightmost character * The following loop prints one character at a time from right * to left until the specified position in the field is a space DO WHILE SUBSTR(strytd,mslot,1)<>" " @mrow,mcolumn SAY SUBSTR(strytd,mslot,1) mslot=mslot-1 && decrement position of field to look at mcolumn=mcolumn-1 && decrement printer column ENDDO SKIP && move to the next record mrow=mrow+1 && increment printer row ENDDO SET DEVICE TO SCREEN SET PRINT TO Additional query words: number report justify align right foxbase+/macKeywords : kbPrinting kbVFp300 kbVFp500 kbVFp600 kbVFP260 kbVFP250 kbVFP250a Issue type : kbhowto |
Last Reviewed: January 2, 1999 |