1 Тема от Route

  • Route
  • подполковник
  • Неактивен
  • Зарегистрирован: 21.07.2010
  • Сообщений: 149
  • Поблагодарили: 1

Тема: Не выводить на печать примечания

Доброе! Word 2010. Необходимо запретить печать примечаний в ворде. Разумеется, можно просто нажать печать и в списке Напечатать все страницы снять галочку Напечатать исправления. Но хотелось бы, что бы эта галочка была всегда снята или что бы при переходе на печать она автоматически снималась (может макрос какой написать можно?). Можно так сделать? А то народ частенько забывает снимать галочку эту и понимают об этом, когда уже пол документа распечатано smile.

2 Ответ от Route

  • Route
  • подполковник
  • Неактивен
  • Зарегистрирован: 21.07.2010
  • Сообщений: 149
  • Поблагодарили: 1

Re: Не выводить на печать примечания

Up! Вопрос все еще актуален.

3 Ответ от Nikodim

  • Nikodim
  • майор
  • Неактивен
  • Зарегистрирован: 27.06.2011
  • Сообщений: 87
  • Поблагодарили: 21

Re: Не выводить на печать примечания

это настраивается не через интерфейс ворда, а где-то в файлах конфигурации принтера для ворда. по-моему где-то Program Files -> Microsoft Office -> OFFICE11.
хотя может и ошибаюсь, может через regedit можно какие-то параметры поправить.
спросите на форуме программистов

4 Ответ от Route

  • Route
  • подполковник
  • Неактивен
  • Зарегистрирован: 21.07.2010
  • Сообщений: 149
  • Поблагодарили: 1

Re: Не выводить на печать примечания

так  и не смог решит данную проблему

5 Ответ от Nikodim

  • Nikodim
  • майор
  • Неактивен
  • Зарегистрирован: 27.06.2011
  • Сообщений: 87
  • Поблагодарили: 21

Re: Не выводить на печать примечания

переходите на ОпенОфисОрг, там достаточно снять галочку на вкладке "параметры принтера"

6 Ответ от Sta1917

  • Sta1917
  • рядовой
  • Неактивен
  • Зарегистрирован: 15.01.2013
  • Сообщений: 9

Re: Не выводить на печать примечания

Тоже озаботился этим вопросом, можно повесить на кнопку отключение исправлений и вывод на предварительный просмотр:

Sub Ìàêðîñ3()
'
' Ìàêðîñ3 Ìàêðîñ
'
'
    With ActiveWindow.View.RevisionsFilter
        .Markup = wdRevisionsMarkupNone
        .View = wdRevisionsViewFinal
    End With
    ActiveDocument.PrintPreview
End Sub

Правда потом исправления снова включать придется. Если есть возможность выполнять действия перед печатью, дайте знать пожалуйста.