Текущий архив: 2002.10.28;
Скачать: CL | DM;

Вниз

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

← →
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);

---

← →
CkuB ©   (2002-08-21 21:25) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c