Fonts

[Zxurian]

I'm looking for a function, (if it exists) that will display all true type fonts on a system.
I tried using the code they give in the tip, but it doesn't exactly give me what I want., what i get is the following... (scroll to end).
Now i'm not sure if its because i'm using XP or what, but that list has way to many extra fonts.

all i'm looking for is a function that will give me the names of all the basic fonts installed on a system. (ie, just that last pat of the list with the actual names on it, starts at "Abadi MT Condensed Extra Bold" and goes to the end)

Also, as a side note, does anybody know the difference between the Batang and @Batang fonts?

System
Terminal
Fixedsys
Roman
Script
Modern
Small Fonts
MS Serif
WST_Czec
WST_Engl
WST_Fren
WST_Germ
WST_Ital
WST_Span
WST_Swed
Courier
MS Sans Serif
Marlett
Arial
Arial CE
Arial CYR
Arial Greek
Arial TUR
Arial Baltic
Courier New
Courier New CE
Courier New CYR
Courier New Greek
Courier New TUR
Courier New Baltic
Lucida Console
Lucida Sans Unicode
Times New Roman
Times New Roman CE
Times New Roman CYR
Times New Roman Greek
Times New Roman TUR
Times New Roman Baltic
Wingdings
Symbol
Verdana
Arial Black
Comic Sans MS
Impact
Georgia
Franklin Gothic Medium
Palatino Linotype
Tahoma
Trebuchet MS
Webdings
Estrangelo Edessa
Gautami
Latha
Mangal
MV Boli
Raavi
Shruti
Tunga
Sylfaen
Microsoft Sans Serif
Abadi MT Condensed Extra Bold
Abadi MT Condensed Light
Agency FB
Arial Narrow
Arial Rounded MT Bold
Arial Unicode MS
Batang
@Batang
Book Antiqua
Bookman Old Style
Calisto MT
Century
Century Gothic
Copperplate Gothic Bold
Copperplate Gothic Light
Garamond
Haettenschweiler
Log-Russ
Log-russ-Italic
Lucida Blackletter
Lucida Bright
Lucida Calligraphy
Lucida Handwriting
Lucida Sans
Matisse ITC
Microstyle Bold Extended ATT
MS Mincho
@MS Mincho
MS Outlook
News Gothic MT
OCR A Extended
Papyrus
PMingLiU
@PMingLiU
Poor Richard
SeaWolf
SimSun
@SimSun
Tempus Sans ITC
Uncial ATT
Verdana Ref
Viner Hand ITC
Westminster
Wingdings 2
Wingdings 3
Gismonda
Dungeon
Monotype Corsiva

[bumbala]

Dim i as Integer
For i = 1 To Screen.FontCount
    Debug.Print Screen.Fonts(i)
Next

[Zxurian]

that is the same function that i used to produce the list above. And what that doesn't help me. What i'm looking for is a fuction tha tjust dislpays the trutype fonts, or just the base fonts.
I don't need Arial, Arial CE, Arial CYR, Arial Greek, Arial TUR, & Arial Baltic. All I need is "Arial"

[Merri]

Just asking, what for you want the fonts?

[DiGiTaIErRoR]

You can do this with the font dialog.

http://msdn.microsoft.com/library/de...oflagsfont.asp

[Zxurian]

i just wanted to make a simple program that prints out all of my fonts onto paper, so that I have something i can look through when selecting one, instead of clicking one by one down the list.

And thanx for the help on the font dialog