FontCount, Fonts Properties (Screen, Printer)

Purpose

Returns the number of fonts, and all names, available for the current display device or active printer.

Syntax

% = object.FontCount

$ = object.Fonts(i%)

object:Screen, Printer Ocx

Description

The Fonts property works in conjunction with the FontCount property, which returns the number of font names available for the object. The parameter i% is an integer from 0 to FontCount -1.

Example

Dim i%

Debug.Show

Debug.Print "PRINTER FONTS" : Debug

For i = 0 To Printer.FontCount - 1

Debug.Print Printer.Fonts(i)

Next

Debug : Debug.Print "SCREEN FONTS" : Debug

For i = 0 To Screen.FontCount - 1

Debug.Print Screen.Fonts(i)

Next

Remarks

Fonts available vary according to your system configuration, display devices, and printing devices.

See Also

Printer, Screen

{Created by Sjouke Hamstra; Last updated: 06/10/2014 by James Gaite}