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?
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
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
&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