🚀 go-pugleaf

Dear Windows Programmers:

This is a Visual Basic question:

I would like to write a little utility that will print (on the printer) a
sample line for each font on my system.  (I have over 200 fonts now and would
like to eliminate some but want to see them first.  Using the font windows
in font selection is not good enough to compare fonts.)

I am familiar with printer.FontSize and printer.FontName but they don't
work all the time and was wondering if anybody had any ideas why not.

Normally

printer.FontSize=18
printer.FontName = "Gettysburg" 
printer.print "THis is my text"

will work.  However, there are times when windows will not accept my
fontname.  Even when I use standard names like "Arial" it complains.
If it complained about some obscure fonts, I might be able to live with that.
But complaining about windows own fonts baffles me.

Does anybody have ideas about how to go about this.

(My next step (once this is solved) is to build a file of font names
(using the win.ini file as a basis) and reading that into the VB program.
This will give me an output of 10 or so fonts per page and then I can
compare them at my leisure and delete the ones I don't want.  My windows
takes a LLOOONNNGGG time to start because of the all the text it reads in
the [fonts] section.)

Michael Bower
bower@hfsi.com