[archive] Finding the current printer font?

[Migrated content. Thread originally posted on 19 August 2005]

I can find the default printer in windows but I cannot find the current font. Is there a way to do that? I don't want to set the font, I just want to set some columns to bold.

Don't want to use control codes because the printers may change without notice, unless there is a standard bold escape code that will work on every printer.

I can not find "graphprn.cbl" in the on line samples or in my version 5.2 or 6.1 sample directories which is supposed to have samples of printing with bold.

Thank you
Ron

You cannot set a font attribute without setting the whole font. This is just the way Windows printing is designed.
I can understand your desire to avoid the extras, but this is the way the Redmontonians (read: Microsoft) did it, and we cannot change this.

There is a way to accomplish this, but it would require some API programming, but then you must decide on your own wether this is something you want to go through.

If you really want to dig into this, just to give you a clue I would say look at the API functions GetTextFace, GetTextMetrics and then you would have to use parts of this information with W$FONT.

I would rather recommend that you design your application for a specific font. Loads this font in two versions, one with and one without bold and then alternates between the two as your needs go.

I can understand it if you think this is cumbersome and unneeded for, but this is in fact what you have to do in any programming language on Windows, not only ACUCOBOL-GT.