Find the postscript names of all the installed fonts

Question

I need to enumerate the postsript names of all the installed fonts.

for example:

        foreach (FontFamily item in FontFamily.Families)
        {
            listBox1.Items.Add(item.Name);
        }

This will give only the actual font names. But I need to find the postscript names.

Eg: For the font "Arial Black" - 1. Actual font name is "Arial Black" 2. PostScript name is "Arial-Black"

Thanks in advance, James

---

EDIT:

1. @ plinth Actually, I read the font name from the PDF and load the corresponding system font. In this case, the PDF has a font name "Arial-Black" (Post script name).. how can I load the font from the sytem (Arial Black) accordingly....ideas??

So, the ideal method should be reading the postscript names from the installed fonts

1. Substituting '-' with '' is not a suitable solution because, there are possibilities of other font names such as "Arial-Bold", "Time New Roman - PSMT" etc..

Answer 1

You may do it directly in PostScript. Execute this:

%!PS
/FS { findfont exch scalefont setfont } bind def

% gets page boundaries
clippath pathbbox newpath
/var_TopOfPage exch def
/var_RightOfPage exch def
/var_BottomOfPage exch def
/var_LeftOfPage exch def

% helvetica is almost always there
12 /Helvetica FS
0 setgray

% set start position
var_LeftOfPage var_TopOfPage 30 sub moveto
/pos var_TopOfPage 20 sub def

GlobalFontDirectory {
    var_LeftOfPage pos moveto
    /FontName get 70 string cvs show
    /pos pos 20 sub def
    pos 0 le {
        showpage
        /pos var_TopOfPage 20 sub def
    } if
} forall

showpage
%%EOF

I have been able to find out the available fonts of a printer with this code.

I hope I've helped you.

Answer 2

I have done something very similar to that. You should be aware the FontFamily.Families may not be the entire set of available fonts.

Why not just substitute '-' for ' '?

In my case, I needed to go to the PDF font name, which for Times New Roman in bold style had to be "TimesNewRoman,Bold".

    private static string ToPdfFontName(Font f)
    {
        StringBuilder sb = new StringBuilder();
        StripSpaces(sb, f.Name);
        if ((f.Style & FontStyle.Bold)!= 0 && (f.Style & FontStyle.Italic)!= 0)
        {
            sb.Append(",BoldItalic");
        }
        else if ((f.Style & FontStyle.Bold)!= 0) 
        {
            sb.Append(",Bold");
        }
        else if ((f.Style & FontStyle.Italic)!= 0) 
        {
            sb.Append(",Italic");
        }
        return sb.ToString();
    }