разрешение принтера

← →
CkuB © (2002-08-19 00:07) [0]

Почему разрещение принтера определяется только первый раз?
При изменении разрешения в настройках принтера возвращаемое
разрешение остается прежним. Если закрыть, а затем открыть
программу, разрешение определяется правильно (первый раз).

procedure TForm1.Button1Click(Sender: TObject);
var
PixelsX:integer;
PixelsY:integer;
begin
PixelsX:=GetDeviceCaps(printer.Handle,LogPixelsX);
PixelsY:=GetDeviceCaps(printer.Handle,LogPixelsY);
Label1.Caption:=IntToStr(PixelsX)+"x"+IntToStr(PixelsY);
end;

← →
Ученик © (2002-08-19 00:14) [1]

Printer.Refresh;

← →
CkuB © (2002-08-20 23:55) [2]

2 ученик

Не работает.

← →
Ученик © (2002-08-21 00:23) [3]

Не знаю, насколько это подходит

Printer.PrinterIndex := -1; { сброс на принтер по умолчанию }
PixelsX:=GetDeviceCaps(printer.Handle,LogPixelsX);
PixelsY:=GetDeviceCaps(printer.Handle,LogPixelsY);
Label1.Caption:=IntToStr(PixelsX)+"x"+IntToStr(PixelsY);

2 Ученик.
Работает. Спасибо.

разрешение принтера Найти похожие ветки