Propriedade Envelope.FeedSource (Word)

Retorna ou define a bandeja de papel do envelope. Leitura/gravação WdPaperTray.

Sintaxe

expression. FeedSource

expression é obrigatório. Uma variável que representa um objeto 'Envelope'.

Exemplo

Este exemplo pergunta ao usuário se os envelopes são inseridos manualmente na impressora. Se a resposta for Yes (Sim), o exemplo definirá a bandeja de papel para alimentação manual de envelopes.

Sub exFeedSource() 
 
 Dim intResponse As Integer 
 
 intResponse = _ 
 MsgBox("Are the envelopes manually fed?", vbYesNo) 
 If intResponse = vbYes then 
 On Error GoTo errhandler 
 ActiveDocument.Envelope.FeedSource = _ 
 wdPrinterManualEnvelopeFeed 
 End If 
 
 Exit Sub 
 
errhandler: 
 If Err = 5852 Then MsgBox _ 
 "Envelope not part of the active document" 
 
End Sub

Confira também

Objeto envelope

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.