Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выполнение кода при нажатии на кнопку Печать / 20 сообщений из 20, страница 1 из 1
08.06.2010, 05:46
    #36674503
codhex
codhex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение кода при нажатии на кнопку Печать
Доброе времени суток всем!

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

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

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

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

подскажи плиз, оч. нужно именно чтобы в ворде при нажатии на печать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2010, 10:45
    #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:55
    #36674849
SashaM
SashaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение кода при нажатии на кнопку Печать
Shocker.Pro,

Про WithEvents я вкурсе, но события не приходят...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2010, 11:02
    #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:06
    #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:32
    #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:45
    #36674990
codhex
codhex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение кода при нажатии на кнопку Печать
SashaM,

можите скинуть ваш вордовский файлик кот получился, плиз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2010, 12:29
    #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:38
    #36675138
codhex
codhex
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение кода при нажатии на кнопку Печать
Shocker.Pro,

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

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

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

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


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