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.