>Pessoal,
>
>Estou imprimindo um cursor onde tenho um campo memo que deve apresentar 3 colunas de dados - o que ocorre é que essas colunas saem desalinhadas.
>
>Preciso que elas fique alinhadas à direita.


Geraldo, esta pequena rotina justifica as linha que são enviadas como parametro com o tamanho
então ficaria mais ou menos assim:

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