Я не уверен, как лучше всего это сделать.Я не думаю, что у вас есть какие-либо события, чтобы зацепить, но вы могли бы выдумать это.Например, пусть заголовок вызывает функцию для установки заголовка, а в качестве побочного продукта вызовите функцию пользовательского кода один раз:
Public Dim ReportTitle As String = ""
Public Function GetTitleAndDoSomethingElse As String
If (ReportTitle = "") Then
ReportTitle = "My Report Title"
' Do your stuff that runs once here
End If
Return ReportTitle
End Function
Затем в заголовке вашего отчета есть текстовое поле, которое установлено в:
=Code.GetTitleAndDoSomethingElse
Ужасно, но надо делать свое дело.