Как изменить границы страницы принтера?

← →
Дмитрий В. Белькевич (2005-01-18 18:31) [0]

Что делаю:
procedure TForm1.Button1Click(Sender: TObject); begin PageSetupDialog1.Execute; end; procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage(inttostr(GetDeviceCaps(Printer.Handle, PHYSICALOFFSETX))); ShowMessage(inttostr(GetDeviceCaps(Printer.Handle, PHYSICALOFFSETY))); end;

Что получается: PHYSICALOFFSETX(Y) никак не зависят от параметров, выставленных в PageSetupDialog.

Вопрос1: PageSetupDialog меняет что-то другое?
Вопрос2: Как изменить PHYSICALOFFSETX(Y), если не с помощью PageSetupDialog?

← →
Anatoly Podgoretsky © (2005-01-18 19:50) [1]

А с чего бы им зависить? Попробуй перести слово PHYSICAL

← →
Дмитрий В. Белькевич (2005-01-23 02:28) [2]

Спасибо за ответ. Разобрался сам - заработало. Как понял - PageSetup никаких параметров границ не меняет, кроме полей внутри себя. Нужно заполнять и затем считывать, и самому учитывать эти поля и physicalx(y).

← →
Anatoly Podgoretsky © (2005-01-23 02:49) [3]

Ну как можно сменить физические характеристи принтера.

Слава богу, что хоть для контекста устройства дисплея индекс PHYSICALOFFSETX возвращает 0. А не размер "черной" рамочки для ЭЛТ. А то ведь сколько желающих было бы его изменить при выводе на экран :-)

Как изменить границы страницы принтера? Найти похожие ветки