>sColWidths = "0," >sFontName = .lstAssigned.FontName >iFontSize = .lstAssigned.FontSize > >FOR iColumn = 1 TO FCOUNT() > iSize = TXTWIDTH(ALLTRIM(FIELD(iColumn)), sFontName, iFontSize) > sColWidths = sColWidths + TRANSFORM(CEILING(iSize)) + "," >ENDFOR >>
iSize = TXTWIDTH(replicate('O',fsize(FIELD(iColumn))), sFontName, iFontSize)