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