Событие Application.MailMergeGenerateBarcode (Publisher)
Происходит, когда издателю Майкрософт требуются данные для создания штрихкодов в публикации слияния, в частности при изменении списка получателей слияния.
Синтаксис
expression. MailMergeGenerateBarcode (Doc, bstrString)
выражение: переменная, представляющая объект Application.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Док | Обязательный | Документ | Текущая публикация. |
| bstrString | Обязательный | String | Выходной параметр. Строковое представление штрихкода. |
Замечания
Сторонние надстройки, проверяющие адреса слияния, могут использовать событие MailMergeGenerateBarcode для прослушивания действий пользователей, запрашивающих создание штрихкодов. В этом случае, когда надстройка получает уведомление о срабатывании события MailMergeGenerateBarcode и если активный документ подключен к источнику данных, надстройка может использовать свойство MailMergeDataSource.ActiveRecord , чтобы определить запись, для которой будет создан штрихкод. Если активный документ не подключен к источнику данных, надстройка напрямую использует текст адреса.
Если надстройка может использовать текст адреса напрямую, она возвращает строковое представление штрихкода для выходного параметра bstrString . Если надстройка не может использовать текст адреса напрямую, она возвращает пустую строку.
Чтобы разрешить активацию события MailMergeGenerateBarcode , необходимо обработать событие MailMergeInsertBarcode в коде, а надстройка должна задать параметр OkToInsert , переданный этому событию, значение True.
Дополнительные сведения об использовании событий с объектом Application см. в разделе Использование событий с объектом Application.
Пример
В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как обрабатывать событие MailMergeGenerateBarcode. Он возвращает строку, представляющую штрихкод для активной записи. Обратите внимание, что переменная indexNumberOfBarcodeColumn представляет номер индекса столбца в источнике данных, который содержит штрихкоды. В этом коде предполагается, что текущая публикация подключена к источнику данных.
Private Sub pubApplication_MailMergeGenerateBarcode(ByVal Doc As Document, bstrString As String)
bstrString = pubApplication.ActiveDocument.MailMerge.DataSource.DataFields.Item(indexNumberOfBarcodeColumn).Value
End Sub
Чтобы это событие произошло, необходимо поместить следующую строку кода в раздел Общие объявления модуля.
Public WithEvents pubApplication As Application
Затем необходимо выполнить следующую процедуру инициализации.
Public Sub Initialize_pubApplication()
Set pubApplication = Publisher.Application
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.