Question

Dim WA As Object, WD As Object
    Set WA = CreateObject("Word.Application")

Set WD = WA.Documents.Add(Filename)
    With WD
        .PrintOut Copies:=1, _
             Collate:=True, IgnorePrintAreas:=False, Preview:=False
    End With
WD.Close False
WA.Quit False
Set WD = Nothing
Set WA = Nothing

我收到错误＆＃34;未找到命名参数＆＃34;，只能运行

.PrintOut副本：= 1

但它向我显示有关错误文档边距的警告

单击＆＃34;工具＆＃34;在我的项目中的参考。 ---＆GT; ＆＃34;参考...＆＃34;然后单击＆＃34; Microsoft Word 15.0对象库＆＃34;旁边的复选框。选择

this parameters没有工作那么如何打印出所有我需要的参数呢？

Answer 1

Word的Printout方法没有IgnorePrintAreas或Preview个参数。这里有一个可用参数列表：https://msdn.microsoft.com/en-us/library/office/ff837331.aspx?f=255&MSPPError=-2147217396

您可以使用以下方法取消保证金警告：

WA.Displayalerts = 0
WD.PrintOut Copies:=1, Collate:=True
WA.Displayalerts = -1

从Excel错误命名参数未找到Word文档打印

1 个答案: