Вместо печати графики использовать резидентный шрифт принтера

Вместо печати графики использовать резидентный шрифт принтера

Автор: Олег Кулабухов

Используте функцию Windows API - GetStockObject() чтобы получить дескриптор (handle) шрифта по умолчанию устройства (DEVICE_DEFAULT_FONT) и передайте его Printer.Font.Handle.

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
      Printer.Canvas.TextOut(100,i * tm.tmHeight + tm.tmExternalLeading,'Test');
    Printer.EndDoc;
  end;
end;

#а#головные уборы Новосибирск#/а# . Работа для студентов и выпускников в тюмени. Разовая работа для студентов в Тюмени. . Кухонные раковины из Европы - раковины для кухни. . картинки .