Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2602440 Mon, 24 May 2010 07:28:50 +0000 запрет печати лист екселя https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2602440
подробно не возился, но вроде бы данная технология позволяет решить сабж

http://www.oszone.net/print/4134/]]> Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2602207 Sun, 23 May 2010 20:16:41 +0000 запрет печати лист екселя https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2602207 verolia VB for Application https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2593065 Thu, 13 May 2010 06:47:51 +0000 запрет печати лист екселя https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2593065 ограниченными разрешениями ?? Если да, то задача значительно упрощается]]> Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2592958 Thu, 13 May 2010 04:39:08 +0000 запрет печати лист екселя https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2592958 Akina VB for Application https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2592876 Wed, 12 May 2010 20:51:30 +0000 запрет печати лист екселя https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2592876 Я немного не могу понять в чем спор, но у меня стоит задание:
объект Excel/Application реагирует на событие:
при попытке распечатать первый лист рабочей книги выдается предупреждающее сообщение о запрете печати.]]> verolia VB for Application https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2592289 Wed, 12 May 2010 10:42:14 +0000 запрет печати лист екселя https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2592289 Цитата Old Bat @
я и не говорил, что он вызывается ТОЛЬКО при печати всей книги

Ну создалося у меня такое впечатление... бывает.]]> Akina VB for Application https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2592274 Wed, 12 May 2010 10:32:36 +0000 запрет печати лист екселя https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2592274 Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2592248 Wed, 12 May 2010 10:10:58 +0000 запрет печати лист екселя https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2592248 Цитата Old Bat @
это простейший вариант при печати всей книги

Нет. Workbook_BeforePrint вызывается при ЛЮБОЙ печати - даже если ты собираешься вывести на печать одну ячейку.]]> Akina VB for Application https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2592225 Wed, 12 May 2010 09:59:14 +0000 запрет печати лист екселя https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2592225 иначе - можно наваять собственную форму печати]]> Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2591999 Wed, 12 May 2010 07:26:08 +0000 запрет печати лист екселя https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2591999 Old Bat, а если чел печатает другой лист? а если всю книгу? из этого методы ты штатно НИКАК не определишь, что собсно послано в печать.]]> Akina VB for Application https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2591973 Wed, 12 May 2010 07:03:34 +0000 запрет печати лист екселя https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2591973
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    Application.EnableEvents = False
    If MsgBox("Первый лист не может быть напечатан. Печатать оставшиеся?", vbYesNo) = vbYes Then PrintOut 2
    Application.EnableEvents = True
    End Sub
]]> Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2591893 Wed, 12 May 2010 04:36:44 +0000 запрет печати лист екселя https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2591893 Среди событий, связанных с печатью, есть только Workbook_BeforePrint, но там нет возможности определить, что именно печатается. Придётся, видимо, переопределять штатный PrintOut.]]> Akina VB for Application https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2591850 Tue, 11 May 2010 22:17:11 +0000 запрет печати лист екселя https://forum.sources.ru/index.php?showtopic=302962&view=findpost&p=2591850
У меня есть такой вариант, но не факт, что верный
    Private Sub CheckPrinter()
    If Worksheet("Лист1") Then
    MsgBox "Нельзя печатать этот лист!"
    Printer.Enabled = False
    End If
    End Sub


подскажите, пожалуйста, как правильно?]]> verolia VB for Application