'*******************************************************

'Определение шрифтов, доступных объекту 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