This example prints a list of the printer fonts in a ListBox control. To try this example, paste the code into the Declarations section of a form that has a ListBox control named List1, and then press F5 and click the form.
Private Sub Form_Click ()
Dim I ' Declare variable.
For I = 0 To Printer.FontCount -1 ' Determine number of fonts.
List1.AddItem Printer.Fonts (I) ' Put each font into list box.
Next I
End Sub