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
我收到错误"找不到命名参数",仅适用于
.打印输出份数:=1
但它向我展示了有关错误文档边距的警告
通过单击"工具"--->"参考...",然后单击"Microsoft Word 15.0对象库"旁边的复选框。选择
此参数不起作用那么如何打印输出我需要的所有参数?
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