CAD

开发平台：

VBA

Fonts.cls：源码内容

							VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Fonts"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Public Function GetSysFonts() As Collection
    Dim fontsCol As New Collection
    Dim i As Long
    For i = 0 To Printer.FontCount - 1
        fontsCol.Add Printer.Fonts(i)
    Next i
    
    Set GetSysFonts = fontsCol
End Function

						