Как запретить выводить на печать элементы управления

[Nuta]

Пожалуйста помогите. Необходимо, чтобы при печати документа элементы управления не отображались. В Eexcel это делается просто у элемента управления свойство PrintObjtct = false . В Word я такого не нашла. Может быть у кого-нибудь есть такой опыт?

[Aent]

Единственное что приходит в голову (если документ изначально не спроектирован специальным образом) пройтись по коллекции InlineShapes активного документа и удалить перед печатью её элементы. Если Вы сами проектируете документ, можно заранее поместить элементы управления в условные поля и перед печатью менять переменную условия.
Пример:
{If Mode > 1 "{CONTROL Forms.CommandButton.1 \s}" ""}
Кнопка в примере выше будет видна только при Mode > 1

[Busine2009]

Я честно говоря не понимаю, в чём дело, но предложу посмотреть Сервис - Параметры - Печать. Может что здесь будет.

[Nuta]

[QUOTE=Aent;314539]Единственное что приходит в голову (если документ изначально не спроектирован специальным образом) пройтись по коллекции InlineShapes активного документа и удалить перед печатью её элементы. Если Вы сами проектируете документ, можно заранее поместить элементы управления в условные поля и перед печатью менять переменную условия.

Спасибо большое!Интересное решение! Попробую так сделать! Жаль только, что в отличии от Excel у Word нет таких событий как BeforPrint. Придется навешивать кнопку. Я вышла чуть-чуть по другому из этой ситуации. Просто уменьшила кнопки до размера 1X1. Все равно огромное спасибо

[CaptainNemo]

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

Жаль только, что в отличии от Excel у Word нет таких событий как BeforPrint.

А что мешает создать класс для работы с Word на уровне Application?

В модуль класса вставляете код:

Public WithEvents Ворд As Application
Private Sub Ворд_DocumentBeforePrint(ByVal Doc As Document, _
Cancel As Boolean)
    MsgBox "Привет, это событие BeforePrint"
End Sub

Для инициализации нового экземпляра класса Ворд в модуль ThisDocument пишете

Dim НовыйЭкземпляр As New Class1

Private Sub Document_Open()

    Set НовыйЭкземпляр.Ворд = Word.Application
End Sub

Аналогично можно отслеживать любые другие события Word на уровне Application. см. файл

[Aent]

Nuta, Вы пишете

Word нет таких событий как BeforPrint

1) Cобытие в Excel называется BeforePrint
2) Можно легко перехватить печать (равно как и другие команды MS WORD),
поместив в модуль кода публичную подпрограмму с именем команды Word
(Их список можно увидеть, выбрав Alt-F8 макросы из команд Word, или построить, выполнив команду ListCommands из этого списка).
Альтернативный путь: добавить в VBA Project модуль кода с именем, идентичным коменде MS WORD (в Вашем случае FilePrint) и содержащий подпрограмму с именем Main.

Public Sub FilePrint()
' Обработка ...
'.......
ActiveDocument.PrintOut
'.......
end sub