Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.08.2013, 16:32   #1
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию Как получить отчёт от принтера?

Добрый день специалистам!
Может быть кто-то уже решал такой вопрос - как в VBA коде обработать ситуацию, когда принтер не выполнил ему порученную работу?
В конкретном проекте на принтер посылается один лист (разные и много, но по одному). В случае, если этот лист не распечатан, хотелось бы среагировать и дальнейшую работу повернуть по другому сценарию.
Помню, когда-то делал в ручном режиме - месиджбокс с запросом "Напечаталось? Да Нет Отмена" и соответственно юзер сам виноват за ответ
Что-то мне кажется, что этот момент автоматизировать невозможно. Даже если принтер отключен от питания - данные молча уходят в очередь печати и что там с ними будет - не известно...
Или может печатать и зажевать - тоже ведь неудача, бумаги нет!
В идеале бы хотелось дождаться от принтера сообщения, что вот именно это посланное благополучно на бумаге. И например через минуту подать запрос на повтор или отмену, если не распечаталось. Но кажется таких сообщений не предусмотрено.
Но вдруг ошибаюсь?
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 29.08.2013, 17:00   #2
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Это смотрели?
1) http://support.microsoft.com/kb/202480
2) http://www.programmersforum.ru/showp...22&postcount=6
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума Ответить с цитированием
Старый 29.08.2013, 17:17   #3
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Спасибо.
Жаль Application.BackgroundPrintingStatu s не для Экселя... А на http://support.microsoft.com/kb/202480 слишком много всего, пугает
Может что попроще для Экселя есть?
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 29.08.2013, 18:39   #4
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

тут вроде проще
http://pubs.logicalexpressions.com/p...cle.asp?id=183
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума Ответить с цитированием
Старый 29.08.2013, 20:23   #5
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Да вроде то же, что и на support'е.
И под Ворд и Win32 API...
А нужно для Экселя и 64 бита
Чувствую, придётся оператора месиджбоксом напрягать
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 29.08.2013, 20:35   #6
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Где ж ворд?
Начинайте читать с
Setting the ActivePrinter in Excel
I mainly do Word VBA, but I like to keep aware of uses for my code in the other Office applications. In this case, there is a particular use in Excel.
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума Ответить с цитированием
Старый 29.08.2013, 20:44   #7
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Читал. На том и кончилось. А пример в файле написано что под Ворд.
Хотя конечно нужно изучить - может и под Экселем заведётся.
Но мне сейчас нужно решение под х64, так что...
Но конечно спасибо, это уже что-то, где-нибудь в другом месте сгодится!
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 29.08.2013, 21:57   #8
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

Цитата:
Но мне сейчас нужно решение под х64, так что...
Не надо АПИ бояться.
Проверил на 64 машине работает
Вложения
Тип файла: rar Страшное API.rar (28.0 Кб, 23 просмотров)
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 29.08.2013, 22:19   #9
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Сергей, спасибо. Нужно будет на досуге покрутить.
Наладил на виртуальный doPDF, ошибок нет. Правда и не проверить толком
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сделать отчёт в Worde из Delphi? Manya89 Помощь студентам 0 09.04.2012 23:20
Как лучше сделать отчёт SashaS Microsoft Office Excel 1 18.03.2012 14:58
Как сделать правельно отчёт? vaselevskii Microsoft Office Access 9 16.01.2012 01:39
Даныые с lpt для принтера, получить на комп Loviad Общие вопросы Delphi 4 11.07.2011 14:29