Как установить количество точек на дюйм в TPrinter

Советы » Принтеры и Печать » Как установить количество точек на дюйм в TPrinter

При смене принтера, размер шрифтов может отмасштабироваться не правильно. Чтобы сделать правильное масштабирование, необходимо установить свойство PixelsPerInch шрифта.

Не делайте изменений после того, как принтер начал печатать.

Два примера:

uses Printers;

var

  MyFile: TextFile;
begin

  Printer.PrinterIndex := 2;
  AssignPrn(MyFile);
  Rewrite(MyFile);
  Printer.Canvas.Font.Name := 'Courier New';
  Printer.Canvas.Font.Style := [fsBold];
  Printer.Canvas.Font.PixelsPerInch :=
    GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
  Writeln(MyFile, 'Print this text');
  System.CloseFile(MyFile);
end
;

uses Printers;

begin

  Printer.PrinterIndex := 2;
  Printer.BeginDoc;
  Printer.Canvas.Font.Name := 'Courier New';
  Printer.Canvas.Font.Style := [fsBold];
  Printer.Canvas.Font.PixelsPerInch :=
    GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
  Printer.Canvas.Textout(10, 10, 'Print this text');
  Printer.EndDoc;
end
;

Как сделать калькулятор в Delphi?

Как Delphi реализует многоплатформенную разработку?

Как установить количество точек на дюйм в TPrinter

Другое по теме:

Категории

Статьи

Советы