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

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 utilizar o texto do endereço diretamente, devolve uma representação de cadeia 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 , tem de processar o evento MailMergeInsertBarcode no seu código e o suplemento tem de definir o parâmetro OkToInsert transmitido para esse evento como Verdadeiro.

Para obter mais informações sobre como utilizar eventos com o objeto Aplicação , veja Utilizar eventos com o objeto Aplicação.

Exemplo

Os seguintes Microsoft Visual Basic for Applications (VBA) macro mostra como lidar com o evento MailMergeGenerateBarcode. Devolve a cadeia que representa o código de barras do registo 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, tem de executar o seguinte procedimento de inicialização.

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.