Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/18: Рейтинг темы: голосов - 18, средняя оценка - 4.78
0 / 0 / 0
Регистрация: 03.12.2009
Сообщений: 11
1

Автозапуск макроса при печати на принтере

13.05.2010, 14:37. Показов 3527. Ответов 4
Метки нет (Все метки)

Возможно ли сделать, что бы макрос запускался при попытке распечатать документ в Ворде? Если да, то как? Заранее благодарю
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.05.2010, 14:37
Ответы с готовыми решениями:

Автозапуск макроса при выборе ячейки
Добрый день, уважаемые форумчане. Подскажите пожалуйста, как вызывать макрос при изменении активной...

Автозапуск макроса при сохранении файла
Доброго всем дня! Есть макрос, который при попытке его сохранить, проверяет, были ли внесены...

Автозапуск макроса при открытии файла Excel
Как сделать, чтобы макрос запускался при открытии файла Excel. (это совсем не для вируса)

Автозапуск макроса при открытии рабочего документа
Kak sdelatj tak 4tob pri otkrytii rabo4ego dokumenta, zapuskalsja, opredelennyi makros ili...

4
marketolog
16.05.2010, 23:24 2
Отрабатывай событие BeforePrint объекта Workbook.
marketolog
16.05.2010, 23:28 3
Пардон, ответил про Excel
В Word, нужно перехватить событие DocumentBeforePrint, объекта Application.
0 / 0 / 0
Регистрация: 03.12.2009
Сообщений: 11
31.05.2010, 16:55  [ТС] 4
Помогите пожалуйста!
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
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
Как заставить этот кусок кода работать (Где описать appWord)
0
1116 / 225 / 35
Регистрация: 15.03.2010
Сообщений: 680
31.05.2010, 18:21 5
Этот код нужно написать в иодуле класса (В данном проимере Class1)

Public WithEvents AppWord As Word.Application

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

MsgBox 'Опс'

End Sub

Далее в модуле пишешь следующий код:

Dim Myapp As New Class1

Public Sub MyEvent()
Set Myapp.AppWord = Word.Application
End Sub

Выполняешь этот код и при печати у тебя будет срабатывать твое событие.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.05.2010, 18:21

Повторяющийся дефект на листе при печати на принтере МФУ
При печати на листе появляются равноудаленные небольшие дефекты. Измерила расстояние между ними,...

Автозапуск макроса при экспорте в Excel
Подскажите, плз, каким образом можно при экспорте данных из Access в Excel можно передать макрос и...

Пропуск символов при печати на принтере Hewlett Packard LJ1100
Доброго времени суток! Ребят, возникает такая проблема: принтер Hewlett Packard LaserJet 1100 при...

Автозапуск макроса(одного из нескольких) при определённых значениях в двух ячейках
Здравствуйте!Необходим макрос,описание задачи в файле.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.