通过

Word) (Envelope.FeedSource 属性

  • 项目

返回或设置信封送纸器。 读/写 WdPaperTray 。

语法

expression. FeedSource

表达式是必需的。 一个代表“Envelope”对象的变量。

示例

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

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

另请参阅

封套对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。