Se alguém já postou a solução me desculpem, mas de qualquer forma vai ai a dica:
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