You can use VFP AFONT() function to get the list of fonts into array. You can convert array into string using code from Re: Does an inverse of ALINES() exist? Thread #731876 Message #732084

DIMENSION laList[1]
= AFONT(laList)

>I need to copy list of fonts installed on my pc (just names) to a document.
>