Alinhar texto justificado com Protheus

Muitos de nós já nos deparamos com esta situação, alinhar um texto justificado em relatórios. Sabemos que o padrão do sistema é: alinhar a direita, a esquerda e centralizado. Mas o bendito justificar só customizando.Mas pesquisa daqui, pesquisa dali, eis uma função, não justifica o texto 100%, mas já faz muita coisa. Você pode usar a função praticamente em qualquer lugar de seu fonte, seja num relatório, num formulário ou mesmo num alerta. Função: AV_Justifica() Sintaxe: AV_Justifica(SeuTexto) Exemplos:

User Function fJustifica()
    Local cTexto := ""

    cTexto := "Caso a variável Private aRotina tenha sido declarada no fonte, o parâmetro nOpc deverá ser informado com o número da linha do vetor aRotina. Caso contrário utilizará sua propriedade com o mesmo nome com seguinte formato:"+CRLF+CRLF
    cTexto += "Vetor com as rotinas que serão executadas na MBrowse e que definira o tipo de operação que esta sendo executada (inclusão, alteração, exclusão, visualização, pesquisa, ...) no formato:"+CRLF+CRLF
    cTexto += "A validação dos campos criados na enchoice é executada na seguinte ordem: validação de usuario (X3_VLDUSER) , depois validação do sistema (X3_VALID) e por último a trigger."
    MsgInfo(AV_Justifica(cTexto))
Return

oPrn:Say(100,010,AV_Justifica(cTexto),aFontes:ARIAL_08_BOLD)

cMemo := AV_Justifica(MEMOLINE(TRB->MEMO,100,6))