Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
Returns or sets the paper tray for the envelope. Read/write WdPaperTray.
Syntax
expression. FeedSource
expression Required. A variable that represents an 'Envelope' object.
Example
This example asks the user whether envelopes are fed into the printer manually. If the answer is yes, the example sets the paper tray to manual envelope feed.
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
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.