Печать документа и выход без сохранения

@vadimn · Регистрация: 28.11.2012

Здравствуйте! У меня есть документ Word, в котором есть обновляемые поля и в который никто не должен вносить изменения. Его необходимо печатать раз в месяц. Напечатать может любой человек, после открытия возникает окно сообщения - "Желаете ли вы действительно напечатать этот документ?" В случае нажатия кнопки ОК, документ отправляет страницы на печать и закрывается. В случае нажатия кнопки "Нет", документ просто закрывается. Всё работает, но есть один нюанс. Чтобы документ успел передать задание на печать до срабатывания макроса на закрытие, я поставил задержку (таймер) на 10 секунд. Если документ короткий, то задержка маленькая - 2 секунды. В данном же случае, формирование на печать на моем компе происходит за 10 секунд. Если документ будет открыт на более медленном компе, то он закроется, так и не успев сформировать задание на печать. Отсюда вопрос. Можно ли обойтись в данном случае без таймера? Так, чтобы макрос ждал ровно столько, сколько требуется для формирования задания на печать, и только после этого закрывал документ.

@vadimn · 16.02.2021, 23:47 **[ТС]**

Нашел ответ. Надо просто в макросе настроек печати указать
Background:=False
и печать не будет выполняться в фоне. Но возникает другая проблема. Если документ короткий, то его станет невозможно редактировать, он сразу будет закрываться. Не успеешь нажать "Alt + А11", затем "Ctrl + Break", чтобы остановить процесс закрытия документа макросом. Отсюда второй вопрос. Можно ли отключить выполнение макросов до открытия документа с возможностью их редактирования?

@Dinoxromniy · 17.02.2021, 10:24

Сообщение от vadimn

Можно ли отключить выполнение макросов до открытия документа с возможностью их редактирования

В коде перед выходом организуйте проверку имени файла. Если имя содержит кодовое слово (например "stop" - if filename like "*stop*" ) файл не закрывать. Надо отредактировать - переименовали файл в "Этикетки - участки - Месяц - печать - закрыть без сохранения stop" и поработали, потом переименовали обратно.

@vadimn · 17.02.2021, 12:10 **[ТС]**

Спасибо, помогло!

Visual Basic

1
2

If ThisDocument.Name Like "*stop*" Then Exit Sub
'Если в имени документа есть слово "stop", то макрос остановится и не закроет документ

@vadimn 6 / 6 / 0 Регистрация: 28.11.2012 Сообщений: 45
	16.02.2021, 23:47 [ТС]	2
	Нашел ответ. Надо просто в макросе настроек печати указать Background:=False и печать не будет выполняться в фоне. Но возникает другая проблема. Если документ короткий, то его станет невозможно редактировать, он сразу будет закрываться. Не успеешь нажать "Alt + А11", затем "Ctrl + Break", чтобы остановить процесс закрытия документа макросом. Отсюда второй вопрос. Можно ли отключить выполнение макросов до открытия документа с возможностью их редактирования? 0

@Dinoxromniy 680 / 395 / 132 Регистрация: 22.12.2015 Сообщений: 1,162
	17.02.2021, 10:24	3
	Сообщение от vadimn Можно ли отключить выполнение макросов до открытия документа с возможностью их редактирования В коде перед выходом организуйте проверку имени файла. Если имя содержит кодовое слово (например "stop" - if filename like "stop" ) файл не закрывать. Надо отредактировать - переименовали файл в "Этикетки - участки - Месяц - печать - закрыть без сохранения stop" и поработали, потом переименовали обратно. 1

Опции темы