.ShowFont common dialog

In my current project when I try to call the common dialog font window

dlg1.ShowFont

I get the message that no fonts are installed and to open the "Fonts" folder in the control panel and install the fonts. According to the control panel I have 90 fonts installed. I tried to run the procedure on another computer and got the same result.

Any ideas as to what may be causing this problem?

Thanks,

Andrew

You need to tell it which Fonts to List, otherwise you'll just get the "No Fonts Installed" Error, eg.

With CommonDialog1
.DialogTitle = "Screen Fonts Available.."
.Flags = cdlCFScreenFonts
.ShowFont
End With




Aaron Young
Analyst Programmer
[email protected]
[email protected]