ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выполнение кода при нажатии на кнопку Печать
20 сообщений из 20, страница 1 из 1
Выполнение кода при нажатии на кнопку Печать
    #36674503
codhex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
codhex
Гость
Доброе времени суток всем!

Подскажите каким образом можно реализовать выполнение своего кода при нажатии на кнопку "Печать"

Обработка события на Кнопку Печать

За ранее спасибо
...
Рейтинг: 0 / 0
08.06.2010, 05:46
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36674552
codhex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
codhex
Гость
забыл уточнить, это нуно в MS Word
...
Рейтинг: 0 / 0
08.06.2010, 07:53
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36674702
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
У вордовского документа категорически мало событий...

Может просто заменить эту кнопку на свою?
...
Рейтинг: 0 / 0
08.06.2010, 09:58
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36674797
SashaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SashaM
Участник
не понятно как это заюзать
...
Рейтинг: 0 / 0
08.06.2010, 10:39
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36674814
codhex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
codhex
Гость
SashaM не понятно как это заюзать

подскажи плиз, оч. нужно именно чтобы в ворде при нажатии на печать
...
Рейтинг: 0 / 0
08.06.2010, 10:43
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36674823
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
SashaM не понятно как это заюзать
A variable that represents an Application object declared with events in a class module

А-а-а. То есть цепляешь Application с событиями и ловишь, чего тут непонятного
...
Рейтинг: 0 / 0
08.06.2010, 10:45
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36674849
SashaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SashaM
Участник
Shocker.Pro,

Про WithEvents я вкурсе, но события не приходят...
...
Рейтинг: 0 / 0
08.06.2010, 10:55
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36674870
codhex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
codhex
Гость
Shocker.ProSashaM не понятно как это заюзать
A variable that represents an Application object declared with events in a class module

А-а-а. То есть цепляешь Application с событиями и ловишь, чего тут непонятного

хотябы натолкните куском правильного года
...
Рейтинг: 0 / 0
08.06.2010, 11:02
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36674883
SashaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SashaM
Участник
codhex,

Разобрался

Нужно в Normal запихивать либо в сам документ

В ThisDocument-е можно проинициализировать
Код: plaintext
1.
2.
3.
4.
Private Sub Document_New()
  Set oClass = New Class1
  Set oClass.appWord = Word.Application
End Sub
Модуль и там
Код: plaintext
Public oClass As Class1

Создать класс Class1
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Public WithEvents appWord As Word.Application

Private Sub appWord_DocumentBeforePrint _
        (ByVal Doc As Document, _
        Cancel As Boolean)

    Dim intResponse As Integer

    intResponse = MsgBox("Have you checked the " _
        & "printer for letterhead?", _
        vbYesNo)

    If intResponse = vbNo Then Cancel = True
End Sub
...
Рейтинг: 0 / 0
08.06.2010, 11:06
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36674954
codhex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
codhex
Гость
SashaM,

правильно сделал я? вставив в В ThisDocument сплошняком весь код

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Public oClass As Class1

Private Sub Document_New()
  Set oClass = New Class1
  Set oClass.appWord = Word.Application
End Sub

Public WithEvents appWord As Word.Application

Private Sub appWord_DocumentBeforePrint _
        (ByVal Doc As Document, _
        Cancel As Boolean)

    Dim intResponse As Integer

    intResponse = MsgBox("Have you checked the " _
        & "printer for letterhead?", _
        vbYesNo)

    If intResponse = vbNo Then Cancel = True
End Sub

и чета не работает (
...
Рейтинг: 0 / 0
08.06.2010, 11:32
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36674990
codhex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
codhex
Гость
SashaM,

можите скинуть ваш вордовский файлик кот получился, плиз
...
Рейтинг: 0 / 0
08.06.2010, 11:45
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36675113
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
codhex,

Что-то СашаМ перемудрил зело.
Достаточно вот это вставить в ThisDocument

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Public WithEvents App As Application

Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)

If Doc Is ThisDocument Then
  MsgBox "Фиг вам"
  Cancel = True
End If

End Sub
Private Sub Document_Open()
  Set App = Application
End Sub
...
Рейтинг: 0 / 0
08.06.2010, 12:29
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36675138
codhex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
codhex
Гость
Shocker.Pro,

огромное спасибо, выпадает мессага "фиг вам" ))), но чета на печать не идет
...
Рейтинг: 0 / 0
08.06.2010, 12:38
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36675144
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
codhexогромное спасибо, выпадает мессага "фиг вам" ))), но чета на печать не идет

из-за этого
Код: plaintext
Cancel = True
...
Рейтинг: 0 / 0
08.06.2010, 12:39
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36675149
codhex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
codhex
Гость
codhexShocker.Pro,

огромное спасибо, выпадает мессага "фиг вам" ))), но чета на печать не идет
все вопрос снят, разобрался, огромное спасибо всем
...
Рейтинг: 0 / 0
08.06.2010, 12:40
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36675153
codhex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
codhex
Гость
Код: plaintext
1.
Cancel = False
и все работает
...
Рейтинг: 0 / 0
08.06.2010, 12:41
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36675509
codhex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
codhex
Гость
подскажите еще вот на такой вопрос, какая команда позволяет осуществить автосохранение документа?
...
Рейтинг: 0 / 0
08.06.2010, 14:13
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36675540
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
codhexподскажите еще вот на такой вопрос, какая команда позволяет осуществить автосохранение документа?
Что вы имеете ввиду? Включить режим автосохранения?
...
Рейтинг: 0 / 0
08.06.2010, 14:24
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36675585
codhex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
codhex
Гость
Shocker.Pro, спасибо сам допер
Код: plaintext
1.
ActiveDocument.Save
...
Рейтинг: 0 / 0
08.06.2010, 14:37
| Ответить | Цитировать | Написать  
Выполнение кода при нажатии на кнопку Печать
    #36675591
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
codhexShocker.Pro, спасибо сам допер
Код: plaintext
1.
ActiveDocument.Save

Это не автосохранение...
...
Рейтинг: 0 / 0
08.06.2010, 14:39
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выполнение кода при нажатии на кнопку Печать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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