Событие при печати отчета

[Swatch]

Здравствуйте! Подскажите, пожалуйста, как можно решить следующую задачу. У меня есть отчет в аксесс. Печать отчета осуществляется либо при нажатии кнопки печати на панели инструментов либо по правой кнопке в контекстном меню. Мне нужно, как только пользователь распечатал документ, выполнить запрос для изменения статуса документа в таблице на сервере. Т.е. поставить ему статус "распечатан", что мол менять в нем уже ничего нельзя. Как сделать запрос, я знаю, но мне непонятно, к какому событию приурочить запуск этого запроса. Я попробовала в отчете прописать команды для ОбластьДанных_Print, но в этом случае в таблице статус документа меняется уже при выводе его на просмотр на экране. А мне нужно именно при печати. Может кто-нибудь подскажет?

[R Dmitry]

Сообщение от Swatch

Здравствуйте! Подскажите, пожалуйста, как можно решить следующую задачу. У меня есть отчет в аксесс. Печать отчета осуществляется либо при нажатии кнопки печати на панели инструментов либо по правой кнопке в контекстном меню. Мне нужно, как только пользователь распечатал документ, выполнить запрос для изменения статуса документа в таблице на сервере. Т.е. поставить ему статус "распечатан", что мол менять в нем уже ничего нельзя. Как сделать запрос, я знаю, но мне непонятно, к какому событию приурочить запуск этого запроса. Я попробовала в отчете прописать команды для ОбластьДанных_Print, но в этом случае в таблице статус документа меняется уже при выводе его на просмотр на экране. А мне нужно именно при печати. Может кто-нибудь подскажет?

К сожалению у отчета нет события печати, поэтому лучше сделать кнопку печать, и на нее уже добавить нужное Вам событие.
....А кто будет печатать по другому ......."Отключим газ"
при желании можно отследить нажатие ctrl +P,и отключить кнопку печати

[OlegVE]

Sub AAA()
DoCmd.OpenReport "Название Вашего отчёта" ' сразу же распечатывает
'Здесь делайте что хотите
End Sub

[Swatch]

спасибо за ответы!

[Swatch]

Возобновляю тему А каким образом можно

при желании можно отследить нажатие ctrl +P,и отключить кнопку печати

??? Как убрать "Печать" из контекстного меню? Из панели инструментов понятно, просто кнопку убрать, а как запретить остальные возможности печати?

[OlegVE]

Здравствуйте

' Делаем недоступной кнопку печати 
CommandBars("Database").Controls("Печать").Enabled = False

' Делаем недоступным пункт меню 
CommandBars("Menu Bar").Controls("Файл").CommandBar.Controls("Печать...").Enabled = False

Остальное ищите с ключевым словом CommandBars и, по-моему, Popup. И побалуйтесь с этим

Sub AAA()
Dim cmdBars As CommandBar
For Each cmdBars In Application.CommandBars
    If cmdBars.Visible Then
        Debug.Print cmdBars.Name, cmdBars.Index
    End If
Next
End Sub

Открывая и закрывая таблицы, отчёты, формы...
До свидания

[Swatch]

спасибо, попробую