Application.MailMergeGenerateBarcode 事件 (Publisher)

會在 Microsoft Publisher 需要資料，以在合併列印出版物中產生條碼時發生，特別是在合併列印收件者清單變更時。

語法

運算式。MailMergeGenerateBarcode (Doc， bstrString)

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Doc	必要	文件	目前的出版物。
bstrString	必要	字串	輸出參數。 條碼的字串表示法。

註解

驗證合併列印的地址的協力廠商增益集可以使用 MailMergeGenerateBarcode 事件來聆聽的使用者要求該條碼會產生的動作。 在此情況下，當增益集會收到通知引發 MailMergeGenerateBarcode 事件，並將使用中文件連線至資料來源，如果增益集可以使用 MailMergeDataSource.ActiveRecord 屬性來決定用來產生條碼的記錄。 如果使用中文件未連線至資料來源、 增益集使用的地址文字直接。

如果增益集可以直接使用位址文字，它會傳回 bstrString 輸出參數之條碼的字串表示。 如果增益集無法直接使用地址文字，就會傳回空字串。

若要允許觸發 MailMergeGenerateBarcode 事件，您必須在程式碼中處理 MailMergeInsertBarcode 事件，而且增益集必須將傳遞給該事件的 OkToInsert 參數設定為 True。

如需搭配 Application 物件使用 事件的詳細資訊，請參閱 搭配 Application 物件使用事件。

範例

下列 Microsoft Visual Basic for Applications (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

您必須將下列程式碼放在模組的 General Declarations 區段中，才會發生此事件。

Public WithEvents pubApplication As Application

接著，您必須執行下列初始化程式。

Public Sub Initialize_pubApplication() 
 Set pubApplication = Publisher.Application 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。