| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать поля принтера [D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]
Nick_Omsk © (2004-01-21 20:26:00)Например, когда в Word'е в параметрах ставишь нулевые поля он сам их исправляет на минимальные. Можно ли как-то это узнать во время выполнения программы?
tesseract (2004-01-22 09:55:00) [1]Получить можно только размер страницы в пикселях- GetDeviceCAPS, и выставив разрешения печати узнать размер поля, размер бумаги выставляется вручную - в смысле как выяснить лист какого размера торчит в принтере я не знаю, но это и не нужно - получаем размер бумаги, выставляем разрешение печати - поля это всё, что не входит в этот размер. Если у нас стоит А4 а мы получили немного меньший - остаток и есть поля.
hyper_omsk (2004-01-22 05:46:00) [2]Поробуй это, я не пробывал незнаю работает или нет
Чтобы получить левое и верхнее поле принтера, используйте 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;
| |
