VPF::DocumentBeforeClose - Форум программистов

Гость_Dex

Дата 12.6.2005, 11:36 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Не получается сделать обработчик в ворде на печать документа.
Типа того

Код


Public WithEvents App As Word.Application

Private Sub App_DocumentBeforePrint _
        (ByVal Doc As Document, _
        Cancel As Boolean)
    a = MsgBox("Have you checked the " _
        & "printer for letterhead?", _
        vbYesNo)
    If a = vbNo Then Cancel = True
End Sub

Но что то не работает!
Поскажите кто знает, что не так!!!

Naghual

Дата 13.6.2005, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49

Я сделал так:

ThisDocument:

Код


Option Explicit

Private Sub Document_New()
    If BeforeCloseClass Is Nothing Then
        Set BeforeCloseClass = New clsBeforeClose
    End If
End Sub

Private Sub Document_Open()
    If BeforeCloseClass Is Nothing Then
        Set BeforeCloseClass = New clsBeforeClose
    End If
End Sub

Добавил модуль modBeforeClose:

Код


Option Explicit

Public BeforeCloseClass As clsBeforeClose

Добавил класс clsBeforeClose:

Код


Option Explicit

Private WithEvents ThisApp As Application

Private Sub Class_Initialize()
    Set ThisApp = Word.Application
End Sub

Private Sub Class_Terminate()
    Set ThisApp = Nothing
End Sub

Private Sub ThisApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
    Dim a As VbMsgBoxResult
    
    a = MsgBox("Have you checked the printer for letterhead?", vbYesNo)
    If a = vbNo Then Cancel = True
End Sub

Это все пишется в код шаблона Normal (чтобы глобально работало)

Это сообщение отредактировал(а) Naghual - 13.6.2005, 10:07

--------------------

Я желаю всем Счастья!

Guest

Дата 13.6.2005, 10:26 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Большое спасибо!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »