VB Code:
Private Sub Form_Click () Dim I As Integer, Flag As Boolean For I = 0 To Printer.FontCount - 1 Flag = StrComp (Font.Name,Printer.Fonts(I), 1) If Flag = True Then Debug.Print "There is a matching font." Exit For End If Next I End Sub
Printable View
VB Code:
Private Sub Form_Click () Dim I As Integer, Flag As Boolean For I = 0 To Printer.FontCount - 1 Flag = StrComp (Font.Name,Printer.Fonts(I), 1) If Flag = True Then Debug.Print "There is a matching font." Exit For End If Next I End Sub