PROCEDURE Main
SET PRINTER TO test.txt
SET DEVICE TO PRINT
Negrito( .T. )
@ pRow(), 1 SAY "CONTA"
@ pRow(), 16 SAY "NOME DA CONTA"
@ pRow(), 48 SAY "FONTE"
@ pRow(), 54 SAY "AGENCIA"
@ pRow(), 62 SAY "F.FIN"
@ pRow(), 68 SAY "FT.CONTRAP."
@ pRow(), 80 SAY "ORG.U."
@ pRow(), 87 SAY "APLIC"
@ pRow(), 93 SAY "BSD"
@ pRow(), 97 SAY "DT.ABERTU."
@ pRow(), 108 SAY "DT.ENCERR."
@ pRow(), 119 SAY "CONTRATO/CONVÊNIO"
@ pRow(), 140 SAY "OFÍCIO SOLICITANTE"
@ pRow(), 166 SAY "OBJETO"
@ pRow(), 212 SAY "CATEGORIA"
Negrito( .F. )
RETURN
FUNCTION Negrito( lOn )
LOCAL nRow, nCol
nRow := pRow()
nCol := pCol()
@ pRow(), pCol() SAY iif( lOn, Chr(27)+'(s3B', Chr(27)+'(s-3B' )
SetPrc( nRow, nCol )
RETURN NIL
Não dá pra ver, mas o texto começa na coluna 7 e termina na 226, 220 caracteres.