lcTexto = lcTexto + justifica(TRANSFORM(1, '999,999.99') + Chr(9) + TRANSFORM(10000, '999,999.99') + Chr(9) + TRANSFORM(500, '999,999.99') + Chr(13),tamanho)veja se funciona
function justifica parameter texto, tamanho local tam_texto, sobra, brancos, resto, vezes tam_texto = len(alltrim(texto)) sobra = tamanho - tam_texto brancos = occurs(" ",alltrim(texto)) vezes = int(sobra / brancos) resto = sobra % brancos for x = 1 to vezes texto = strtran(alltrim(texto),space(x),space(x+1),1,brancos) next texto = strtran(alltrim(texto),space(x),space(x+1),1,resto) return texto