powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сделать неактивной кнопку печати в окне предварительного просмотра
9 сообщений из 9, страница 1 из 1
Как сделать неактивной кнопку печати в окне предварительного просмотра
    #36939573
PSZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PSZ
Гость
На панели инструментов и в меню получается сделать неактивной кнопку печати, а вот в окне предварительного просмотра, нет. Непонятно как обратиться к списку кнопок этого окна. Может кто подскажет.
...
Рейтинг: 0 / 0
Как сделать неактивной кнопку печати в окне предварительного просмотра
    #36939621
Фотография Сын вождя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну так окно одно и то же:
Код: plaintext
1.
2.
3.
4.
Dim B As Office.CommandBarButton
    
    Set B = Application.CommandBars("Print Preview").FindControl( _
                Type:=msoControlButton, Id:= 2521 )
    B.Enabled = False
...
Рейтинг: 0 / 0
Как сделать неактивной кнопку печати в окне предварительного просмотра
    #36939724
PSZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PSZ
Гость
Ругается на строчку Set B = Application.CommandBars("Print Preview").FindControl( _
Type:=msoControlButton, Id:=2521)

invalid procedure call or argument
...
Рейтинг: 0 / 0
Как сделать неактивной кнопку печати в окне предварительного просмотра
    #36939893
Фотография Сын вождя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ошибка из-за неверного имени "Print Preview".
А вообще, какую прогу обсуждаем?
Ответ был для Word 2003, но по ходу речь об Excel 2003.
...
Рейтинг: 0 / 0
Как сделать неактивной кнопку печати в окне предварительного просмотра
    #36939895
Фотография Сын вождя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А зачем надо блокировать кнопку? Всех кнопок не переловишь :)
Может лучше блокировать саму возможность печати?
...
Рейтинг: 0 / 0
Как сделать неактивной кнопку печати в окне предварительного просмотра
    #36939927
PSZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PSZ
Гость
Да вопрос про Excel 2003. Такая возникла необходимость, долго объяснять, но смысл в том, что предварительный просмотр нужен, а вот печать из него должна быть не возможна. Пробовал отменять печать в событии BeforePrint, но тогда отменяется и вывод окна предварительного просмотра. Что-то даже прям не знаю чего придумать.
...
Рейтинг: 0 / 0
Как сделать неактивной кнопку печати в окне предварительного просмотра
    #36939973
Фотография Сын вождя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
С ходу в голову приходит такой вариант. Создаем свою кнопку "Предварительный просмотр" с макросом "Макрос". При ее нажатии просмотр работает, иначе - нет. Печать не работает вообще.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private X As Boolean

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If X Then X = False Else Cancel = True
End Sub

Public Sub Кнопка()
    X = True
    Application.Dialogs(xlDialogPrintPreview).Show
End Sub
...
Рейтинг: 0 / 0
Как сделать неактивной кнопку печати в окне предварительного просмотра
    #36940973
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Если ты хочешь чтобы кнопки не было видно в предварительном просмотре и при печати,
просто зайди в Properties кнопки и в PrintObject поставь False!
...
Рейтинг: 0 / 0
Как сделать неактивной кнопку печати в окне предварительного просмотра
    #36940980
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Эээ, что-то я не понял о чем речь, думал что кнопка на листе стоит! Не бери в голову вождь!:))
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как сделать неактивной кнопку печати в окне предварительного просмотра
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]