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
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.