Показать сообщение отдельно
  #1  
Старый 12.07.2017, 22:45
Kotser Kotser вне форума
Прохожий
 
Регистрация: 12.07.2017
Адрес: Москва
Сообщения: 4
Версия Delphi: Delphi 10
Репутация: 10
По умолчанию Как распечатать контент на принтере с точностью до миллиметра?

Хех...
Код:
var PixelsX, PixelsY:integer;
    PrinterCoordX, PrinterCoordY:integer;
begin
   PixelsX:=GetDeviceCaps(printer.Handle, LogPixelsX);
   PixelsY:=GetDeviceCaps(printer.Handle, LogPixelsY);
   PrinterCoordX:=round(PixelsX/25.4*15);
   PrinterCoordY:=round(PixelsY/25.4*11.7);
   image2.Canvas.Rectangle(0,0, PrinterCoordX, PrinterCoordY);

   {Form1.масшатб: poProportional установлен}
   Form1.Print;
end;
Админ: Пользуемся тегами при оформлении кода!

15см на 11.7 см, принтер не печатает прямоугольник с такими размерами. Что я делаю не так?
Ответить с цитированием