• Home
 · 
• Miscellaneous
 · 
• get Font types on computer

get Font types on computer

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)

Assumes
Must have a combo box called ftype

Rate get Font types on computer

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

''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