'*******************************************************
'Определение шрифтов, доступных объекту Printer
'*******************************************************
'на форме текстбокс Text1 (свойство MultiLine=True) и кнопка Command1Private 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