Evento Application.MailMergeGenerateBarcode (Publisher)

Ocorre quando o Microsoft Publisher exige que os dados gerem códigos de barras em uma publicação de mala direta, principalmente quando a lista de destinatários de mala direta é alterada.

Sintaxe

expressão. MailMergeGenerateBarcode (Doc, bstrString)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Doc	Obrigatório	Documento	A publicação atual.
bstrString	Obrigatório	String	Parâmetro de saída. Uma representação de cadeia de caracteres do código de barras.

Comentários

Terceiros suplementos que valide endereços de mala direta podem usar o evento MailMergeGenerateBarcode para escutar ações do usuário que está solicitando que códigos de barras seja gerado. Nessa situação, quando o suplemento recebe a notificação de que o evento MailMergeGenerateBarcode acionado, e se o documento ativo está conectado a uma fonte de dados, o suplemento pode usar a propriedade MailMergeDataSource.ActiveRecord para determinar o registro para o qual gerar o código de barras. Se o documento ativo não estiver conectado a uma fonte de dados, o suplemento usa o texto do endereço diretamente.

Se o suplemento puder usar o texto do endereço diretamente, ele retornará uma representação de cadeia de caracteres do código de barras para o parâmetro de saída bstrString . Se o suplemento não puder usar o texto do endereço diretamente, ele retornará uma cadeia vazia.

Para permitir o acionamento do evento MailMergeGenerateBarcode , você deve manipular o evento MailMergeInsertBarcode em seu código e o suplemento deve definir o parâmetro OkToInsert passado para esse evento como True.

Para obter mais informações sobre como usar eventos com o objeto Application , consulte Usando eventos com o objeto Application.

Exemplo

Os seguintes Microsoft Visual Basic for Applications (VBA) macro mostra como lidar com o evento MailMergeGenerateBarcode. Ele retorna a cadeia de caracteres que representa o código de barras do registro ativo. Observe que a variável indexNumberOfBarcodeColumn representa o número do índice da coluna na fonte de dados que lista códigos de barras. Esse código pressupõe que a publicação atual esteja conectada a uma fonte de dados.

Private Sub pubApplication_MailMergeGenerateBarcode(ByVal Doc As Document, bstrString As String) 
 bstrString = pubApplication.ActiveDocument.MailMerge.DataSource.DataFields.Item(indexNumberOfBarcodeColumn).Value 
End Sub

Para esse evento ocorrer, coloque a linha de código a seguir na seção Declarações Gerais do módulo.

Public WithEvents pubApplication As Application

Em seguida, você deve executar o procedimento de inicialização a seguir.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.