Clipper/FiveWin - Font en Report

Estimado defino un Report con 3 columnas y tres tipos de impresión, segun el do case qeu aparece en el prg son:

La primera impresion es solo el RUBRO, funciona ok.
La segunda imprsion es RUBRO y PARTIDA, funciona ok. imprimo en negrita el RUBRO y sencilla la partida.
La tercera imprsion es la que imprime la descripción de la PARTIDA y me sale en negrita.

******************************************************************************************
La idea es que la descripción de la PARTIDA no salga en negrita, pero no se como le paso el Font a la función saymemo...
******************************************************************************************

este es el prg y la function saymemo:

Define Font Font01 Name "Arial" Size 0,-10
Define Font Font02 Name "Arial" Size 0,-10 bold

Report Rep01 Title "TAREAS" left;
Font Font02,Font01;
header "Fecha: "+dtoc(date()),;
"Pag. No. "+str(Rep01:nPage,3) right;
footer SPACE(10)+repl("_",103),;
"JUAN GOMEX - Arquitecto | Parana 888 1º A - C.F. | TE: 5555-4444" center;
Preview

column title "CODIGO" data Wodigos->Codigo size 07 at 500
column title "CONCEPTO" data Wodigos->Concepto size 60
column title "UD." data Wodigos->Unidad size 06 center

END REPORT

Rep01:aColumns[1]:bDataFont := {|| iif(right(Wodigos->Codigo,2)="00",1 ,2 ) }
Rep01:aColumns[2]:bDataFont := {|| iif(right(Wodigos->Codigo,2)="00",1 ,2 ) }
Rep01:aColumns[3]:bDataFont := {|| iif(right(Wodigos->Codigo,2)="00",1 ,2 ) }

do case
case Cual=1
ACTIVATE REPORT Rep01 for right(Wodigos->Codigo,2)="00"
case Cual=2
ACTIVATE REPORT Rep01 ON EndGROUP (Rep01:NewLine())
case Cual=3
ACTIVATE REPORT Rep01 on change saymemo()
endcase

Font01:End()

sele Codi0000
retu nil
//----------------------------------------------------------------------
STATIC Function SayMemo()
LOCAL cText, cLine
LOCAL nFor, nLines

//Rep01:Newline()

cText := Wodigos->Descripcio
nLines := MlCount(cText,Renglon->Catalogo)

FOR nFor := 2 TO nLines
cLine := MemoLine(cText,Renglon->Catalogo, nFor)
Rep01:StartLine()
Rep01:Say(2,cLine)
Rep01:EndLine()
NEXT

Rep01:Newline()

retu nil

EN LA SIGUIENTE FUNCION SAYMEMO, EL TEXTO SALE IMPRESO CON EL PRIMER TIPO DE FONT QUE INDICO EN EL REPORT, PERO YO QUIERO OTRO TIPO DE LETRA PARA EL CAMPO MEMO, DONDE LE PASO EL FONT????

STATIC Function SayMemo()
LOCAL cText, cLine
LOCAL nFor, nLines

cText := Wodigos->Descripcio
nLines := MlCount(cText,Renglon->Catalogo)

FOR nFor := 2 TO nLines
cLine := MemoLine(cText,Renglon->Catalogo, nFor)
Rep01:StartLine()
Rep01:Say(2,cLine)
Rep01:EndLine()
NEXT

Rep01:Newline()

retu nil

ya está.
si alguno tiene esta duda alguna vez, es:
Rep:say(nº de columna, texto, nº de font)
si no está nº de font, por defecto es la 1.
gracias !!!!!!