Evento Application.MailMergeInsertBarcode (Publisher)
Ocorre quando o usuário emite o comando para inserir códigos de barras postais em uma publicação de mala direta, seja na interface do usuário do Microsoft Publisher, seja via programação.
Sintaxe
expressão. MailMergeInsertBarcode (Doc, OkToInsert)
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. |
| OkToInsert | Obrigatório | Boolean | Parâmetro de saída. True se é possível inserir códigos de barras. |
Comentários
Use o método TextRange.InsertBarcode para inserir códigos de barras em uma publicação de mesclagem de email.
Terceiros suplementos que valide endereços de mala direta podem usar o evento MailMergeInsertBarcode para escutar ações do usuário que está solicitando que códigos de barras a ser inserido. Nessa situação, quando o suplemento recebe a notificação de que o evento MailMergeInsertBarcode foi disparado, ele verifica a validade dos endereços na lista de mesclagem de email e, se os endereços forem válidos, ele tentará gerar códigos de barras. Se essa tentativa for bem-sucedida, o suplemento deverá retornar True para o parâmetro OkToInsert . Se a tentativa falhar, o suplemento deve retornar False.
Os dados de código de barras reais são fornecidos para o Publisher pelo evento MailMergeGenerateBarcode.
O evento MailMergeInsertBarcode também é disparado quando um usuário escolhe Adicionar um código de barras postal no painel de tarefas Mesclagem de Correio ou Mesclagem de Catálogo ou Adicionar códigos de barras postais no painel Tarefas do Editor na interface do usuário do Editor. Antes que um usuário possa escolher um desses comandos de interface do usuário, primeiro você deve disponibilizá-los definindo a propriedade InsertBarcodeVisible 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 manipular o evento MailMergeInsertBarcode. Exibe uma mensagem perguntando se você deseja continuar com a inserção de códigos de barras.
Private Sub pubApplication_MailMergeInsertBarcode(ByVal Doc As Document, OkToInsert As Boolean)
Dim intResponse As Integer
intResponse = MsgBox("Proceed to insert barcodes?", vbYesNo)
If intResponse = vbYes Then OkToInsert = True
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.