Syntax
CountFonts()
Remarks
Returns the number of fonts available with the selected printer. This is the number of fonts listed in the Font dialog box (Format menu) or in the Formatting toolbar's font list.
The font list includes fonts installed on the printer, TrueType® fonts (if they are installed), and system fonts.
Example
This example creates a new document and then inserts the available font names, each formatted with the corresponding font:
FileNewDefault For count = 1 To CountFonts() Font Font$(count) Insert Font$(count) InsertPara Next
See Also
Font