>VFP9 ROCK!!
Indeed it does. :-)
CREATE CURSOR crsrFontList ( ;
cFont char(30))
llGotFonts = AFONT(laFonts)
FOR i = 1 TO ALEN(laFonts)
INSERT INTO crsrFontList VALUES (laFonts(i))
ENDFOR
CREATE REPORT fontList FROM DBF("crsrFontList")
loListen = CREATEOBJECT("myFontListener")
REPORT FORM fontList PREVIEW OBJECT loListen
DEFINE CLASS myFontListener as ReportListener
ListenerType = 1
PROCEDURE EvaluateContents
LPARAMETERS nFrxRecno, oObjProperties
oObjProperties.FontName = ALLTRIM(cFont)
oObjProperties.Reload = .T.
ENDPROC
ENDDEFINE
