.ShowFont common dialog

[Andrew]

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

[Aaron Young]

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]