|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
17.11.2009, 13:27 | #11 |
Пользователь
Регистрация: 17.11.2009
Сообщений: 14
|
Знаешь, если принцип работает и дело действительно в том что ты говоришь, почему бы нам не разделить конечную цель на 2 макроса? Одну кнопь нажал - пошли чб страницы. Другую кнопь нажал - пошли цв страницы. Возможно, это даже удобнее будет в каких-то случаях. Щас даже попробую поколупать макрос, хотя вряд ли чего выдет у меня с первого раза
А! Еще заметил, что описаный мною результат получен именно на большом документе. А создав док из нескольких страниц для теста, там макрос вообще ни чего не делает. Ставит в очередь на печать и сразу убирает или формирование списка страниц на принтеры сделать не одним оператором, а двумя. Т.е. Если есть рис. то добавляем в цв список, в противном случае - ничего. Конец Если нет рис. то добавляем в чб список, в противном случае - ничего. Конец как-то так по-русски Последний раз редактировалось Stilet; 18.11.2009 в 07:52. |
17.11.2009, 13:36 | #12 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Попробуем проверять BackgroundPrintingStatus
Код:
Лучше день потерять — потом за пять минут долететь!©
Последний раз редактировалось viter.alex; 17.11.2009 в 13:58. Причина: Исправил переменную, которая отправляется на цветную печать |
17.11.2009, 13:47 | #13 |
Пользователь
Регистрация: 17.11.2009
Сообщений: 14
|
Прогресс определённо есть! У меня теперь оба принтера напечатали только чб. А может после формирования списка на чб сразу отправлять его на печать? А потом формировать список цв и опять отправлять
|
17.11.2009, 13:51 | #14 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Ё-моё, и ты ничего не увидел!
Посмотри внимательно в код, какая переменная отправляется на цветную печать? Код пока исправлять не буду
Лучше день потерять — потом за пять минут долететь!©
|
17.11.2009, 13:55 | #15 |
Пользователь
Регистрация: 17.11.2009
Сообщений: 14
|
ТЫ ГЕНИИИИИИЙ!!!!
Спасибо огромное, побежал счастливый тестировать в рабочем процессе! А мне еще такая мысля пришла. Возможно еще при этом проверять графические объекты цветны или чб? И если чб, то пришивать их к списку чб Последний раз редактировалось Stilet; 18.11.2009 в 07:53. |
17.11.2009, 14:17 | #16 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Дай пример документа, где есть цветные и ч\б рисунки.
Лучше день потерять — потом за пять минут долететь!©
|
17.11.2009, 14:38 | #17 |
Пользователь
Регистрация: 17.11.2009
Сообщений: 14
|
Прилагаю. Но его пришлось сохранить в формате doc вместо docx
|
17.11.2009, 15:03 | #18 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
С наскока не получилось. Дело в том, что у объекта InlineShape, каковыми являются рисунки в предоставленном документе, есть свойство PictureFormat.ColorType. Но оно покажет, что рисунок ч\б только если к нему применить команду Перекрасить→Черно-белое. Если же этого не делать, тогда никак не определить.
Вернее, чистым VBA никак, но есть еще функции WinAPI, которые это могут. Но это совсем другая история
Лучше день потерять — потом за пять минут долететь!©
|
17.11.2009, 15:39 | #19 |
Пользователь
Регистрация: 17.11.2009
Сообщений: 14
|
А как пришить к данному макросу хотя бы такую команду? Может и такой способ приживётся. Всё легче, чем выписывать номера страниц на листик
|
17.11.2009, 15:42 | #20 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Какую команду?
Лучше день потерять — потом за пять минут долететь!©
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Принтеры в сети | HappyUser | Работа с сетью в Delphi | 0 | 16.04.2009 22:09 |
печать страниц в обратном порядке | Олекса | Microsoft Office Word | 4 | 30.03.2009 09:45 |
Как узнать количество выданных на печать страниц | Bogood | Общие вопросы Delphi | 3 | 13.03.2009 17:29 |
Раскрашивание черно-белых изображений!!! | ALEX_RAS | Помощь студентам | 1 | 16.05.2008 21:57 |