Word VBA教程:FeedSource属性

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

WdPaperTray 可以是下列 WdPaperTray 常量之一:
wdPrinterAutomaticSheetFeed
wdPrinterDefaultBin
wdPrinterEnvelopeFeed
wdPrinterFormSource
wdPrinterLargeCapacityBin
wdPrinterLargeFormatBin
wdPrinterLowerBin
wdPrinterManualEnvelopeFeed
wdPrinterManualFeed
wdPrinterMiddleBin
wdPrinterOnlyBin
wdPrinterPaperCassette
wdPrinterSmallFormatBin
wdPrinterTractorFeed
wdPrinterUpperBin

expression.FeedSource

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

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号