Link to home
Start Free TrialLog in
Avatar of vitanza
vitanza

asked on

error - no fonts installed

Here's my code:

Private Sub mnuFont_Click()
    CommonDialog1.ShowFont
End Sub

when this is executed I get a message that says:

There are no fonts installed.
Open the Fonts folder from the Control Panel to install fonts.

What's up with that?
ASKER CERTIFIED SOLUTION
Avatar of List244
List244

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of List244
List244

&h400 Windows fonts only no symbol fonts
&h3 List printer and screen fonts
&h10000 allow only existing fonts
&h20000 Only list scalable fonts
&h40000 List only True type fonts so then do
&h100 Enables strikethrough underline and colors

Those are notes, dont add them to your code only add the command button code