>>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
>
>Sarah,
>
>I had two thoughts on this. My friend David has given you one of them. The other, however, might be better and easier to implement.
>
>You might be able to accomplish this by using OLE to create a word processing document which would contain the output. I'm not very experience in this particular area, so I'm not the person who give you all the "how tos". Maybe some one who is could jump in and fill you in on the details.

Thanks for your input guys. I announced this major breakthrough to the user who then decided that he wanted to be able to reorder the fonts into types ie shadows, serifed etc so OLE and word it is. Shouldn't be too bad and about time I gave it a go.

Sarah