Форум: "Система";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Внизразрешение принтера Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c