Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

error - no fonts installed

Posted on 2003-03-28
2
Medium Priority
?
160 Views
Last Modified: 2013-12-02
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?
0
Comment
Question by:vitanza
  • 2
2 Comments
 
LVL 8

Accepted Solution

by:
List244 earned 80 total points
ID: 8229479
People do this all the time, You must pick flags for the common dialogs font, you cant just do showfont

try

&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

Private Sub mnuFont_Click()
   CommonDialog1.Flags = &h3 or &h40000 or &h100
   CommonDialog1.ShowFont
End Sub

That is a basic example on how to use common dialog for fonts.
0
 
LVL 8

Expert Comment

by:List244
ID: 8229482
&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
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Ever visit a website where you spotted a really cool looking Font, yet couldn't figure out which font family it belonged to, or how to get a copy of it for your own use? This article explains the process of doing exactly that, as well as showing how…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
Suggested Courses
Course of the Month14 days, 3 hours left to enroll

580 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question