VB Code:
  1. Private Sub Form_Click ()

  2.  
  3. Dim I As Integer, Flag As Boolean

  4.  
  5.    For I = 0 To Printer.FontCount - 1

  6.  
  7.       Flag = StrComp (Font.Name,Printer.Fonts(I), 1)

  8.  
  9.       If Flag = True Then

  10.  
  11.          Debug.Print "There is a matching font."

  12.  
  13.          Exit For

  14.  
  15.       End If

  16.  
  17.    Next I

  18.  
  19. End Sub