2015-03-25 3 views
-1
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 

Я получаю ошибку "Названный аргумент не найден", работает толькоWord Doc печать из Excel Error именованный аргумент не найден

.PrintOut Тираж: = 1

Но показать мне предупреждение о неправильных значениях документов

ссылка в моем проекте, нажав «Инструменты» ---> «Ссылки ...», а затем установите флажок рядом с «Библиотека объектов Microsoft Word 15.0». Выбран

Номер this parameters Итак, как распечатать все нужные параметры?

+0

'Printout' метод в Word не имеет' 'IgnorePrintAreas' или аргументов Preview' - почему как вы думаете, они вам нужны? – Rory

+0

он показывает мне предупреждение о неправильных значениях документов, поэтому какие аргументы имеют метод печати «Текст»? –

+1

Посмотрите. ;) https://msdn.microsoft.com/en-us/library/office/ff837331.aspx?f=255&MSPPError=-2147217396 – Rory

ответ

2

Word's 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 
+0

Но все еще появляются предупреждения –

+0

Боюсь, я не знаю, как это остановить. – Rory

Смежные вопросы