You can add Printer fonts as well.

Code:
For i = 1 To Printer.FontCount - 1
    Combo1.AddItem Printer.Fonts(i)
Next i