Ciao.
Io proverei così:

NEL MODULO CHE CONTIENE LA TUA COMBOBOX (che ti consiglio mettere con Style = 2, affinché non possano essere modificate le voci contenute):

codice:
Private Sub Form_Load()
   Dim I   ' Dichiara la variabile "contatore"
   For I = 0 To Printer.FontCount - 1  ' Scandisce tutti i fonts   
      Combo1.AddItem Printer.Fonts(I)  ' Elenca i fonts   
   Next I
End Sub
In questo modo ottieni una lista di fonts. Sta a te poi adattare il codice al resto del programma.

Fammi sapere.