Вход в свойства принтера.

[БуреВестник]

Как войти в свойства принтера?

[viter.alex]

Только через API. А зачем?

[БуреВестник]

Как это через API?
Да и сам уже не знаю, зачем. По инерции пишу про принтера. Просто ради интереса войти в принтер через код.

[raxp]

в смысле получить доступ к свойствам, а не вызвать диалог?
...подключите модули - printers,winspool. Создайте, скажем p:= TPrinter.Create; а уже p- даст вам свойства...

настройки печати будут доступны через функцию GetDeviceCaps(DC:HDC,Index:integer) , где в качестве dc - подставьте p.handle

cписок принтеров через p.Printers, а выбор текущего через p.PrinterIndex

[БуреВестник]

raxp
дай ссылку на ресурсы. Я просто не понимаю, о чём ты пишешь. Гляну завтра.
Да и это что такое p:= TPrinter. Это какой язык программирования?

[viter.alex]

Через функции WinAPI (Application Programming Interface — интерфейс прикладного программирования). Это особый вид функций, с помощью который осуществляется программный доступ к другим приложениями в операционных системах Windows.
Если кратко, то нужно вызвать диалог печати (Dialogs(wdDialogFilePrint).Show), затем определить идентификатор этого диалога печати в операционной системе (API-функция FindWindow), затем в этом окне найти кнопку, которая открывает окно свойств принтера (API-функция EnumChildWindows), программно нажать на эту кнопку (API-функция PostMessage). После этого откроется диалог свойств принтера, окно которого тоже нужно найти, затем найти в нем нужные нам элементы: текстовые поля, выпадающие списки и т.д. Отметить их или изменить их содержимое, программно нажать «OK» и запустить печать.
Вопрос: а оно вам нужно?
По-моему, гораздо проще настроить принтер один раз, а затем пускать на печать документы с настройками по умолчанию.

[viter.alex]

Сообщение от БуреВестник

…Да и это что такое p:= TPrinter. Это какой язык программирования?

Это Delphi . Пока я писал предыдущее сообщение, вы уже два поста успели сварганить.
Да… Нужно увеличивать скорость слепого набора

[БуреВестник]

Спасибо. Завтра почитаю. Я тоже собираюсь заниматься в свободное время Delphi.

[raxp]

to БуреВестник

Просто ради интереса войти в принтер через код

Я просто не понимаю, о чём ты пишешь

- просто ради интереса... интересный вы человек

[БуреВестник]

Вопрос: а оно вам нужно?
По-моему, гораздо проще настроить принтер один раз, а затем пускать на печать документы с настройками по умолчанию.

Я вспомнил, зачем это было мне нужно.
В Excel есть существенная недоработка (которой кстати нет в OpenOffice). Предположим ситуацию:

1. Книга состоит из 100 листов.
2. Необходимо распечатать всю книгу в режиме Двусторонняя печать.
3. Для этого надо щёлкнуть в диалоговом окне Печать по кнопке Свойства и зайти в программу принтера, чтобы поставить галочку Двусторонняя печать.
4. В чём недоработака Excel - надо эту галочку ставить для каждого листа, т.е. нужно сделать действие 100 раз. Но нужно учитывать, что книга с таким количеством листов тяжела для среднего компьютера, которые распространены в организациях, соответственно всё это будет сопровождаться ужасным торможением.
5. Что нужно сделать, нужно написать макрос, который будет ставить галочку Двусторонняя печать.

По-моему, гораздо проще настроить принтер один раз, а затем пускать на печать документы с настройками по умолчанию.

Пока всё это писал, задумался об этой цитате, и вдруг меня осенило, что надо в одном месте посмотреть: диалоговое окно Печать - Свойства - Но перейти не туда, где ставится галочка Двусторонняя печать, а на другую вкладку для установки настроек принтера по умолчанию. Только вот принтера сейчас нет, поэтому не смогу посмотреть, можно ли там сделать так, чтобы по умолчанию принтер печатал Двустороннюю печать. Вот чёрно-белую печать по умолчанию можно сделать (тоже проблема для распечатки файлов Excel - если принтер цветной, а нужна ч/б печать, то галочку тоже надо ставить для каждого листа).