Не Обновляется Содержимое Tprintdialog

  • Автор темы Автор темы pinkmouse
  • Дата начала Дата начала
P

pinkmouse

Delphi 7. При выборе принтера в диалоговом окне TPrintDialog, принтер выбирается, но параметры печати беруться (размер бумаги, разрешение) от принтера по умолчанию и если в диалоге не нажать свойства" и не поставить правильные настройки на печать задание пойдет в выбранный принтер, но с настройками бумаги от принтера по умолчанию. Причем во всплывающем окне при нажатии кнопки"свойства" видны именно параметры от принтера по умолчанию. Так вот, как туда "подгрузить" настройки от выбранного в диалоговом окне принтера?
 
Я выяснил, такая хрень происходит не со всеми параметрами, а только с "особым форматом бумаги" , (это ленточный принтер этикеток), вместо него лепит А4. Как победить?
 
Короче он все формыты бумаги ставит по умолчанию, из настроек принтера их не берет.
 
Я так понял, что это компонент кривой, правильно считывает свойства принтера, если только принтер установлен по умолчанию. При выборе принтера из списка формат бумаги ставит первым в списке форматов принтера. Вордовский диалог печати такой болячкой не болеет. Может кто сталкивался, как лечить то?
 
Я так понял, что это компонент кривой, правильно считывает свойства принтера, если только принтер установлен по умолчанию. При выборе принтера из списка формат бумаги ставит первым в списке форматов принтера. Вордовский диалог печати такой болячкой не болеет. Может кто сталкивался, как лечить то?
Чего лечить то? :)
Tprintdialog ничего сам не делает. Как собственно и любой другой диалог... После закрытия диалога Вы должны взять параметры которые пользователь "накликал ручками" и назначить нужному принтеру.
Вот приблизительно так http://www.scalabium.com/faq/dct0020.htm
Нужный принтер выбирается установкой Printers.Printer.PrinterIndex;
Список принтеров можно получить из Printers.Printer.Printers
Короче... почитайте
Вот на вскидку несколько ссылок:

http://www.delphibasics.co.uk/RTL.asp?Name=TPrintDialog
http://www.delphidabbler.com/tips/104
http://delphi.about.com/cs/adptips2001/a/bltip1001_5.htm
Или Гугл :)
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

🚀 Первый раз на Codeby?
Гайд для новичков: что делать в первые 15 минут, ключевые разделы, правила
Начать здесь →
🔴 Свежие CVE, 0-day и инциденты
То, о чём ChatGPT ещё не знает — обсуждаем в реальном времени
Threat Intel →
💼 Вакансии и заказы в ИБ
Pentest, SOC, DevSecOps, bug bounty — работа и проекты от проверенных компаний
Карьера в ИБ →

HackerLab