取得屏幕字型:

   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