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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.04.2011, 15:32   #1
MiheyS
 
Регистрация: 15.04.2011
Сообщений: 9
Восклицание Задержка выполнения макроса

Встал перед проблемой, вся работа сала.
при работе макрос в ворде, отправляет на печать документ, после этого закрывает документ. на лазерном принтере работает без проблем, а вот на матричном, не успевает принтер принять и обработать задание, как макрос уже закрывает ворд, и соответственно выскакивает ошибка, что невозможно закрыть ворд, так как есть активное окно. Следовательно перед выполнением закрытия необходимо сделать паузу в выполнении макроса, дабы принтер успел принять и обработать задание. Внимание вопрос какой функцией это реализуется. Пробовал в тело вставить перед закрытием Sleep = 10000, Delay = 10000, результата нет. Подскажите что делать, а то я в этом как-то слабоват.
MiheyS вне форума Ответить с цитированием
Старый 15.04.2011, 15:52   #2
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,040
По умолчанию

Цитата:
Сообщение от MiheyS Посмотреть сообщение
выскакивает ошибка
Как насчёт обработчика ошибок?
Ципихович Эндрю вне форума Ответить с цитированием
Старый 15.04.2011, 17:40   #3
MiheyS
 
Регистрация: 15.04.2011
Сообщений: 9
По умолчанию

я не понимайт о чём вы, я простой юзверь. поподробнее если можно
MiheyS вне форума Ответить с цитированием
Старый 15.04.2011, 18:01   #4
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,040
По умолчанию

On Error Resume Next
If Err.Number = ????? Then MsgBox "!!!!!!!!"
Спрашиваю какакя ошибка??
Ципихович Эндрю вне форума Ответить с цитированием
Старый 15.04.2011, 18:44   #5
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

В методе PrintOut, которым, я надеюсь, документ печатается есть параметр Background. Если его установить в значение False, то макрос не будет продолжать работу, пока печать не закончится
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 15.04.2011, 20:57   #6
MiheyS
 
Регистрация: 15.04.2011
Сообщений: 9
По умолчанию

Цитата:
Сообщение от Ципихович Эндрю Посмотреть сообщение
On Error Resume Next
If Err.Number = ????? Then MsgBox "!!!!!!!!"
Спрашиваю какакя ошибка??
я юзверь. вычто ругаетесь
MiheyS вне форума Ответить с цитированием
Старый 15.04.2011, 20:58   #7
MiheyS
 
Регистрация: 15.04.2011
Сообщений: 9
По умолчанию

Цитата:
Сообщение от viter.alex Посмотреть сообщение
В методе PrintOut, которым, я надеюсь, документ печатается есть параметр Background. Если его установить в значение False, то макрос не будет продолжать работу, пока печать не закончится
где мне посмотреть какой метод, и как установить значение false
MiheyS вне форума Ответить с цитированием
Старый 16.04.2011, 01:33   #8
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Ты же написал:
Цитата:
Сообщение от MiheyS Посмотреть сообщение
…отправляет на печать документ…
Как ты его отправляешь на печать, каким кодом?
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 16.04.2011, 11:39   #9
MiheyS
 
Регистрация: 15.04.2011
Сообщений: 9
По умолчанию

Activedocumen. Printout
ActiveDocument.ActiveWindow. Close.
Aplication Quit
MiheyS вне форума Ответить с цитированием
Старый 16.04.2011, 13:06   #10
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Код:
ActiveDocument.Printout Background:=False
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Время выполнения макроса... nikolai_P Microsoft Office Excel 9 03.04.2013 00:59
Прекращение выполнения макроса AesmaDiv Microsoft Office Excel 6 12.12.2010 18:30
Задержка выполнения программы hottabych23 Общие вопросы Delphi 3 24.04.2010 22:40
Пауза выполнения макроса artclon Microsoft Office Excel 3 09.02.2010 05:13
скрыть процесс выполнения макроса Iskin Microsoft Office Excel 1 21.11.2008 07:28