Размер полей при печати :: Статьи по Delphi - Iguana Software -
Поиск по базе статей [/articles/?PHPSESSID=488691851becbba35a93665b2e1165bf] : 18.08.2006 Изменено разрешение сайта Изменено минимальное разрешение сайта на 1024x768 Подробнее... 02.08.2006 Выгружена игра "Digger Remastered" Вспоминаем старый добрый DOS и времена 80-х! ;) Подробнее... Рекомендуем книгу! Программирование документов и приложений Microsoft Office в Delphi Книга посвящена созданию приложений в среде Dephi для работы с текстом, таблицами, объектами, диаграммами, макросами, настройками параметров страниц и др. в документах MS Word и Exce. Большое внимание уделено объектным моделям документов MS Office. ... Размер полей при печати :: Статьи по Delphi Мне необходимо получить значения (лево, право, верх, низ) "непечатаемой области" принтера. Из статьи Delphi Developer "Take Control of your printer with a custom Delphi Class": Чтобы получить левое и верхнее поле принтера, используйте Windows Escape функцию с параметром GETPRINTINGOFFSET. var pntMargins : TPoint; begin { @ означает "адрес переменной" } Escape(Printer.Handle, GETPRINTINGOFFSET, 0 , nil ,@prntMargins); end ; Получить размер правого и нижнего поля не так просто. Просто не существует необходимого эквивалента при вызове Escape функции. Но вы можете узнать эти значения, получив физическую ширину (physWidth) и высоту (physHeight) бумаги, печатаемую ширину (PrintWidth) и высоту (PrintHeight) страницы и выполнив несложные арифметические операции: RightMargin := physWidth - PrintWidth - LeftMargin BottomMargin := physHeight - PrintHeight - TopMargin Физический размер страницы можно получить с помощью Escape-функции, но на этот раз с использованием параметра GETPHYSPAGESIZE. Указатель pntPageSize содержит ширину страницы в pntPageSize.x и ее высоту в pntPageSize.y var pntPageSize : TPoint; begin Escape(Printer.Handle, GETPHYSPAGESIZE, o , nil ,@pntPageSize); end ; Copyright 2001-2007 © "Iguana Software" . О компании | Продукты | Усуги | Заявление о приватности | Правила использования | Обратная связь IGP Delphi Forum | Библиотека VCL | Увлекательные знакомства, Украина