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

Comentários

Utilize o método TextRange.InsertBarcode para inserir códigos de barras numa publicação de impressão em série.

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. Nesta situação, quando o suplemento recebe a notificação de que o evento MailMergeInsertBarcode foi acionado, verifica a validade dos endereços na lista de impressão em série e, se os endereços forem válidos, tenta gerar códigos de barras. Se esta tentativa for efetuada com êxito, o suplemento deverá devolver Verdadeiro 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 é acionado quando um utilizador escolhe Adicionar um código de barras postal no painel de tarefas Impressão em Série ouImpressão em Série do Catálogo ou Adicionar códigos de barras postais no painel de tarefas Tarefas do Publicador na IU do Publicador. Antes de um utilizador poder escolher um destes comandos de IU, primeiro tem de disponibilizá-los ao definir a propriedade InsertBarcodeVisible 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 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, 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.