'*******************************************************
'Определение шрифтов, доступных объекту Printer
'*******************************************************
'на форме текстбокс Text1 (свойство MultiLine=True) и кнопка Command1

Private Sub Command1_Click()
    Dim Str As String
    Dim x As Integer
    For x = 0 To Printer.FontCount - 1
    Str = Printer.Fonts(x)
    Text1.Text = Text1.Text & x & " " & Str & ", "
    Next x
End Sub