1、加载系统字体 For i = 1 To Printer.FontCount Combo_Font.AddItem Printer.Fonts(i) Next Combo_Font.Text = "宋体"