|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как распечатать контент на принтере с точностью до миллиметра?
Хех...
Код:
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 см, принтер не печатает прямоугольник с такими размерами. Что я делаю не так? Последний раз редактировалось Kotser, 12.07.2017 в 23:03. |