Função para centralizar texto usando HBPrinter

[asimoes]

Amigos,

Se alguém já postou a solução me desculpem, mas de qualquer forma vai ai a dica:

Código: Selecionar todos

FUNCTION CABEC(nLin)
cLinha1:="ESTADO DO RIO DE JANEIRO"
@003,CENTRA(cLinha1) SAY cLinha1 FONT "F0"  TO PRINT
RETURN NIL

FUNCTION CENTRA(cTexto)
LOCAL nLarg_Linha:=(HBPRN:MAXCOL)
RETURN ((nLarg_Linha - LEN(cTexto)) / 2) 

[]´s