Выполнение по событию перед печатью - PullRequest
Новая
       104

Выполнение по событию перед печатью

0 голосов
/ 27 февраля 2020

Я хочу выполнить код, который помещает имя пользователя и принтер в нижний колонтитул документа PowerPoint, когда пользователь перемещается для печати документа. Идея состоит в том, что мы можем отследить источник мошеннических распечаток.

https://docs.microsoft.com/en-us/office/vba/api/powerpoint.application.presentationprint

Private Sub App_PresentationPrint(ByVal pres As Presentation)

    Dim slide As Object

    For Each slide In pres.Slides
        pres.slide.HeadersFooters.Footer.Text = Environ("username") & " - " & pres.PrintOptions.ActivePrinter
    Next

End Sub

Приведенный выше код выполняется, когда помещается в sub publi c sub , но не для события печати. ​​

Редактировать, Sub Auto_Print() также не работает.

...