I've been nagged for awhile to create a printout of all the fonts on a users system. He does desktop publishing and has a zillions and finds it hard to manage them all. While doing some other work I discovered AFONT() and the example in the help text. What I'd really like is to create an adhoc report.

However I can't see anything in the report designer to allow me to change the font at run time.

I've put a bit of the code I've been playing with which was taken from the help file below.

=AFONT(gaFontArray) && Array containing font names
for nCount = 1 to 100
? ALLTRIM(gaFontArray(nCount)) && Display font name
?? ' ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz' FONT gaFontArray(nCount), 8 && it's this font command I want to replicate!
endfor