Evento Application.EPostageInsertEx (Word)

Ocorre quando um usuário insere postagem eletrônica em um documento.

Sintaxe

expression. EPostageInsertEx( _Doc_ , _cpDeliveryAddrStart_ , _cpDeliveryAddrEnd_ , _cpReturnAddrStart_ , _cpReturnAddrEnd_ , _xaWidth_ , _yaHeight_ , _bstrPrinterName_ , _bstrPaperFeed_ , _fPrint_ , _fCancel_ )

Expressão Uma variável que representa um objeto 'Application' que foi declarado com eventos em um módulo de classe. Para obter informações sobre como usar eventos com o objeto Application , consulte Usando eventos com o objeto Application.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Doc	Obrigatório	Document	O documento ao qual a postagem eletrônica é adicionada.
cpDeliveryAddrStart	Obrigatório	Long	A posição inicial do documento para o endereço do destinatário. O posicionamento corresponde ao valor da propriedade Iniciar para um objeto Range.
cpDeliveryAddrEnd	Obrigatório	Long	A posição final do documento para o endereço do destinatário. O posicionamento corresponde ao valor da propriedade End para um objeto Range.
cpReturnAddrStart	Obrigatório	Long	A posição inicial do documento para o endereço do remetente. O posicionamento corresponde ao valor da propriedade Iniciar para um objeto Range.
cpReturnAddrEnd	Obrigatório	Long	A posição final do documento para o endereço do remetente. O posicionamento corresponde ao valor da propriedade End para um objeto Range.
xaWidth	Obrigatório	Long	A largura do envelope em unidades de 1/1440 de polegada.
yaHeight	Obrigatório	Long	A altura do envelope em unidades de 1/1440 de polegada.
bstrPrinterName	Obrigatório	String	O nome da impressora conforme especificado na guia Opções de Impressão da caixa de diálogo Opções de Envelope.
bstrPaperFeed	Obrigatório	String	O método de alimentação conforme especificado na guia Opções de Impressão da caixa de diálogo Opções de Envelope.
fPrint	Obrigatório	Boolean	True se o usuário tiver especificado para imprimir o envelope. False se o usuário tiver especificado para inserir o envelope no documento.
fCancel	Obrigatório	Boolean	True cancela a inserção da postagem.

Exemplo

O exemplo a seguir exibe uma mensagem para o usuário. Se a mensagem for cancelada, o mesmo ocorrerá com a ação especificada pelo usuário.

Private Sub App_EPostageInsertEx(ByVal Doc As Document, ByVal cpDeliveryAddrStart As Long, _ 
 ByVal cpDeliveryAddrEnd As Long, ByVal cpReturnAddrStart As Long, _ 
 ByVal cpReturnAddrEnd As Long, ByVal xaWidth As Long, ByVal yaHeight As Long, _ 
 ByVal bstrPrinterName As String, ByVal bstrPaperFeed As String, _ 
 ByVal fPrint As Boolean, fCancel As Boolean) 
 
 Dim intResponse As Integer 
 
 If fPrint = True Then 
 intResponse = MsgBox("Make sure the printer is ready to print an envelope." & vbCrLf & _ 
 "When the printer is ready, click OK.", vbOKCancel) 
 
 If intResponse = vbCancel Then 
 fCancel = True 
 End If 
 End If 
End Sub

Confira também

Objeto de Aplicativo

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.