Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Окт

Изменение свойств принтера

Posted by maloy under Delphi, Архив

fэn

Помогите пожалуйста изменить лоток принтера, используемый по умолчанию. (Нужно четные странницы напечатать из внутреннего лотка а нечетные из внешнего(ручного). В диалоге это без проблем, а вот как программно не знаю). Заранее благодарен.

nova-alex

Попробуй такую конструкцию.

var

ADev, ADriv, APort:array [0..255] of Char;

adevh:Thandle;

devm:Pdevicemode;

begin

Printer.PrinterIndex:=Printer.Print erIndex;

Printer.getprinter(adev,adriv,aport ,adevh);

if adevh <> 0 then begin

DevM:= GlobalLock(adevh);

if DevM <> nil then begin

//Обязательная инициализация бита поля dmFields

devm^.dmFields:=devm^.dmFields or DM_DEFAULTSOURCE;

DevM^.dmDefaultSource:=DMBIN_UPPER;

GlobalUnlock(adevh);

end;

end;

{Блок распечатки страницы}

Printer.PrinterIndex:=Printer.Print erIndex;

Printer.getprinter(adev,adriv,aport ,adevh);

if adevh <> 0 then begin

DevM:= GlobalLock(adevh);

if DevM <> nil then begin

//Обязательная инициализация указателя поля dmFields

devm^.dmFields:=devm^.dmFields or DM_DEFAULTSOURCE;

DevM^.dmDefaultSource:=DMBIN_LOWER;

GlobalUnlock(adevh);

end;

end;

{Блок распечатки следующей страницы}

Обрати внимание на то, что обязательно нужно инициализировать указатель поля dmFields, а затем делать уставки.
Хотя в справке D6 по слову DevMode сказано, что (Reserved; must be zero)-зарезервировано и должно быть выставлено в ноль.
Кстати свою проблему частично решил(тема от 24 октября, в ней описал свое решение), здесь добавлю то, что изменения настроек принтера работали только для программы,сделавшей эти изменения и только до момента ее закрытия. После закрытия все настройки возвращались к установкам принтера.

Текст и нужно удалить.

тема на форуме от 2006 года