Article #16133: Using Resident Font

 Question and Answer Database
FAQ1133D.txt Using Resident Font
Category :VCL
Platform :All
Product :All 32 bit
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;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99