Função para centralizar texto usando HBPrinter
Enviado: 02 Jan 2008 03:29
Amigos,
Se alguém já postou a solução me desculpem, mas de qualquer forma vai ai a dica:
[]´s
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)