Как установить количество точек на дюйм в 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;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как установить количество точек на дюйм в TPrinter", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!