запрет печати лист екселя -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.141]

Организуем VBA-FAQ! Если у Вас есть предложения, выскажитесь здесь: Пишем FAQ, интересно Ваше мнение

Популярные разделы FAQ: user posted image

Общие вопросы user posted image

Особенности VBA-кода user posted image

Оптимизация VBA-кода user posted image

Полезные ссылки

1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость - сестра таланта.
3. Не забывайте использовать теги [сode=vba] ...текст программы... [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.

Модераторы: Old Bat, MIF

Новое голосование

запрет печати лист екселя

verolia

Сообщ. #1 , 11.05.10, 22:17

Unregistered

Как запрограммировать запрет печатать первый лист в экселе?

У меня есть такой вариант, но не факт, что верный

Private Sub CheckPrinter()

If Worksheet("Лист1") Then

MsgBox "Нельзя печатать этот лист!"

Printer.Enabled = False

End If

End Sub

подскажите, пожалуйста, как правильно?

Akina	Сообщ. #2 , 12.05.10, 04:36
Monster Профиль · PM Поощрения: 35 Dgm Рейтинг (т): 544	Факт, что не верный - ибо ни к чему не привязано. Среди событий, связанных с печатью, есть только Workbook_BeforePrint, но там нет возможности определить, что именно печатается. Придётся, видимо, переопределять штатный PrintOut.

Old Bat	Сообщ. #3 , 12.05.10, 07:03
Moderator Профиль · PM Поощрения: 18 Dgm Рейтинг (т): 128	можно попробовать нечто вроде: Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True Application.EnableEvents = False If MsgBox("Первый лист не может быть напечатан. Печатать оставшиеся?", vbYesNo) = vbYes Then PrintOut 2 Application.EnableEvents = True End Sub

Akina	Сообщ. #4 , 12.05.10, 07:26
Monster Профиль · PM Поощрения: 35 Dgm Рейтинг (т): 544	Old Bat, а если чел печатает другой лист? а если всю книгу? из этого методы ты штатно НИКАК не определишь, что собсно послано в печать.

Old Bat	Сообщ. #5 , 12.05.10, 09:59
Moderator Профиль · PM Поощрения: 18 Dgm Рейтинг (т): 128	согласен, это простейший вариант при печати всей книги иначе - можно наваять собственную форму печати

Akina	Сообщ. #6 , 12.05.10, 10:10
Monster Профиль · PM Поощрения: 35 Dgm Рейтинг (т): 544	Цитата Old Bat @ 12.05.10, 09:59 это простейший вариант при печати всей книги Нет. Workbook_BeforePrint вызывается при ЛЮБОЙ печати - даже если ты собираешься вывести на печать одну ячейку.

Old Bat	Сообщ. #7 , 12.05.10, 10:32
Moderator Профиль · PM Поощрения: 18 Dgm Рейтинг (т): 128	я и не говорил, что он вызывается ТОЛЬКО при печати всей книги, но если нужно печатать всю книгу (без 1 листа) - этот вариант проходит, иначе - пляшем с бубном

Akina	Сообщ. #8 , 12.05.10, 10:42
Monster Профиль · PM Поощрения: 35 Dgm Рейтинг (т): 544	Цитата Old Bat @ 12.05.10, 10:32 я и не говорил, что он вызывается ТОЛЬКО при печати всей книги Ну создалося у меня такое впечатление... бывает.

verolia

Сообщ. #9 , 12.05.10, 20:51

Unregistered

Ой, спасибо большое, Вам за помощь, сейчас будем пробовать.
Я немного не могу понять в чем спор, но у меня стоит задание:
объект Excel/Application реагирует на событие:
при попытке распечатать первый лист рабочей книги выдается предупреждающее сообщение о запрете печати.

Akina	Сообщ. #10 , 13.05.10, 04:39
Monster Профиль · PM Поощрения: 35 Dgm Рейтинг (т): 544	В таком случае способ имхо один - сабклассить объект и обрабатывать его PrintOut самостоятельно.

Old Bat	Сообщ. #11 , 13.05.10, 06:47
Moderator Профиль · PM Поощрения: 18 Dgm Рейтинг (т): 128	а речь, часом, не о запрете печати листа с ограниченными разрешениями ?? Если да, то задача значительно упрощается

verolia	Сообщ. #12 , 23.05.10, 20:16
Unregistered	А подскажите поподробнее о запрете печати листа с ограниченными разрешениями

Old Bat	Сообщ. #13 , 24.05.10, 07:28
Moderator Профиль · PM Поощрения: 18 Dgm Рейтинг (т): 128	Управление правами на доступ к данным (Information Rights Management, IRM) подробно не возился, но вроде бы данная технология позволяет решить сабж http://www.oszone.net/print/4134/

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,1293 ] [ 15 queries used ] [ Generated: 7.11.25, 22:54 GMT ]