Question

返回或设置打印信封时的送纸盒。WdPaperTray，可读写。

WdPaperTray 可以是下列 WdPaperTray 常量之一：

wdPrinterAutomaticSheetFeed

wdPrinterDefaultBin

wdPrinterEnvelopeFeed

wdPrinterFormSource

wdPrinterLargeCapacityBin

wdPrinterLargeFormatBin

wdPrinterLowerBin

wdPrinterManualEnvelopeFeed

wdPrinterManualFeed

wdPrinterMiddleBin

wdPrinterOnlyBin

wdPrinterPaperCassette

wdPrinterSmallFormatBin

wdPrinterTractorFeed

wdPrinterUpperBin

expression.FeedSource

expression 必需。该表达式返回“应用于”列表中的一个对象。

注意 如果在将信封添至文档前使用此属性将出现错误。

示例

本示例询问用户是否手动将信封送入打印机。如果是，本示例将送纸盒设置为手动方式。

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