返回或设置打印信封时的送纸盒。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