This code takes every font from the computer it is run on, and places it into a combo box. (not using printer.fonts but using screen.fonts)
Original Author: V. B. Fool
Assumptions
Must have a combo box called ftype
Code
''for loop adds all font types in computer to combo box
fType.Clear ''clears combo box
For i = 0 To Screen.FontCount - 1 ''counts # of fonts
fType.AddItem Screen.Fonts(i) ''adds font to combo box
Next i