不知要哪个?
Syscmd.Table.ChangeFont()
With CurrentTable.Font Output.Show(.Name) Output.Show(.Size) Output.Show(.Style)End With
For i As Integer = 0 To System.Drawing.FontFamily.Families.Length - 1 Output.show(System.Drawing.FontFamily.Families(i).Name)Next