FeedSource 属性

       

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

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