FeedSource Property

WdPaperTray

WdPaperTray can be one of these WdPaperTray constants.

wdPrinterAutomaticSheetFeed

wdPrinterDefaultBin

wdPrinterEnvelopeFeed

wdPrinterFormSource

wdPrinterLargeCapacityBin

wdPrinterLargeFormatBin

wdPrinterLowerBin

wdPrinterManualEnvelopeFeed

wdPrinterManualFeed

wdPrinterMiddleBin

wdPrinterOnlyBin

wdPrinterPaperCassette

wdPrinterSmallFormatBin

wdPrinterTractorFeed

wdPrinterUpperBin

expression.FeedSource

expression Required. An expression that returns one of the objects in the Applies To list.

Note  If you use this property before an envelope has been added to the document, an error occurs.

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

Applies to | Envelope Object

See Also | DefaultLaserTray Property | EnvelopeFeederInstalled Property