?
Solved

Accessing default printer font

Posted on 1998-09-28
2
Medium Priority
?
425 Views
Last Modified: 2013-12-02
This seems a bit silly, but I can't get it to work.

How do I print using the default printer font? Whenever I print using Delphi, it switches to the default windows printer font, or the font I set it to in the printer.canvas.font method, etc. Even when I use the assignprn(textfile) method, it switches the font... All I want is a dump in the default printer font.

The reason? The default font uses the old PC-8 character set. I'm trying to use an old piece of code that has boxes around the text for a report. Setting the printer.font and printer.charset doesn't seem to work. I can set the charset to ansi, but not to the old IBM PC-8 characterset, even though the printer has that set.
0
Comment
Question by:oneeye
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 5

Accepted Solution

by:
ronit051397 earned 200 total points
ID: 1340997
This is from Borland documents
http://www.inprise.com/devsupport/delphi/qanda/808.html

Question:

Instead of printing graphics, how can I get TPrinter to use the default resident font in the printer?

            Answer:

            Use the Windows API function GetStockObject() to retrieve the
            device default font handle, and assign it to Printer.Font.Handle.

            Example:

            uses Printers;

            procedure TForm1.Button1Click(Sender: TObject);
            var
              tm : TTextMetric;
              i : integer;
            begin
              if PrintDialog1.Execute then begin
                Printer.BeginDoc;
                Printer.Canvas.Font.Handle := GetStockObject(DEVICE_DEFAULT_FONT);
                GetTextMetrics(Printer.Canvas.Handle, tm);
                for i := 1 to 10 do begin
                  Printer.Canvas.TextOut(100,
                                         i * tm.tmHeight +
                                         tm.tmExternalLeading,
                                         'Test');
                end;
                Printer.EndDoc;
              end;
            end;


0
 

Author Comment

by:oneeye
ID: 1340998
Ah, very good. One place I forgot to check.

I am much obliged.
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you! In this Micro Tutorial, you'll learn yo…
Suggested Courses

777 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question