如何取得计算机的所有字型？
取得屏幕字型：
Dim I As Long
For I = 0 To Screen.FontCount - 1
Combo1.AddItem Screen.Fonts(I)
Next
取得打印机字型：
Dim I As Long
For I = 0 To Printer.FontCount - 1
Combo2.AddItem Printer.Fonts(I)
Next
