CountFonts()

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