![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Пользователь
Регистрация: 17.11.2009
Сообщений: 14
|
![]()
Знаешь, если принцип работает и дело действительно в том что ты говоришь, почему бы нам не разделить конечную цель на 2 макроса? Одну кнопь нажал - пошли чб страницы. Другую кнопь нажал - пошли цв страницы. Возможно, это даже удобнее будет в каких-то случаях. Щас даже попробую поколупать макрос, хотя вряд ли чего выдет у меня с первого раза
![]() А! Еще заметил, что описаный мною результат получен именно на большом документе. А создав док из нескольких страниц для теста, там макрос вообще ни чего не делает. Ставит в очередь на печать и сразу убирает или формирование списка страниц на принтеры сделать не одним оператором, а двумя. Т.е. Если есть рис. то добавляем в цв список, в противном случае - ничего. Конец Если нет рис. то добавляем в чб список, в противном случае - ничего. Конец как-то так по-русски ![]() Последний раз редактировалось Stilet; 18.11.2009 в 07:52. |
![]() |
![]() |
![]() |
#12 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
![]()
Попробуем проверять BackgroundPrintingStatus
Код:
Лучше день потерять — потом за пять минут долететь!©
Последний раз редактировалось viter.alex; 17.11.2009 в 13:58. Причина: Исправил переменную, которая отправляется на цветную печать |
![]() |
![]() |
![]() |
#13 |
Пользователь
Регистрация: 17.11.2009
Сообщений: 14
|
![]()
Прогресс определённо есть!
![]() |
![]() |
![]() |
![]() |
#14 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
![]()
Ё-моё, и ты ничего не увидел!
Посмотри внимательно в код, какая переменная отправляется на цветную печать? Код пока исправлять не буду ![]()
Лучше день потерять — потом за пять минут долететь!©
|
![]() |
![]() |
![]() |
#15 |
Пользователь
Регистрация: 17.11.2009
Сообщений: 14
|
![]()
ТЫ ГЕНИИИИИИЙ!!!!
![]() Спасибо огромное, побежал счастливый тестировать в рабочем процессе! А мне еще такая мысля пришла. Возможно еще при этом проверять графические объекты цветны или чб? И если чб, то пришивать их к списку чб Последний раз редактировалось Stilet; 18.11.2009 в 07:53. |
![]() |
![]() |
![]() |
#16 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
![]()
Дай пример документа, где есть цветные и ч\б рисунки.
Лучше день потерять — потом за пять минут долететь!©
|
![]() |
![]() |
![]() |
#17 |
Пользователь
Регистрация: 17.11.2009
Сообщений: 14
|
![]()
Прилагаю. Но его пришлось сохранить в формате doc вместо docx
|
![]() |
![]() |
![]() |
#18 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
![]()
С наскока не получилось. Дело в том, что у объекта InlineShape, каковыми являются рисунки в предоставленном документе, есть свойство PictureFormat.ColorType. Но оно покажет, что рисунок ч\б только если к нему применить команду Перекрасить→Черно-белое. Если же этого не делать, тогда никак не определить.
Вернее, чистым VBA никак, но есть еще функции WinAPI, которые это могут. Но это совсем другая история
Лучше день потерять — потом за пять минут долететь!©
|
![]() |
![]() |
![]() |
#19 |
Пользователь
Регистрация: 17.11.2009
Сообщений: 14
|
![]()
А как пришить к данному макросу хотя бы такую команду? Может и такой способ приживётся. Всё легче, чем выписывать номера страниц на листик
|
![]() |
![]() |
![]() |
#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 |