Как правильно указать диапазон печати в макросе?

[vvedenka]

В общем я дурачок в программировании. Поэтому прошу помощь. Есть макрос в экселе, который подставляет данные из таблицы в шаблон ворд, сохраняет этот шаблон и отправляет его на печать. Срока печати в нём выглядит так
objDoc.PrintOut True 'Filename:=sOut, Copies:=nCop ' отправляем фоном на печать
Шаблон состоит из 3-х страниц. Мне надо страницы 1,2 распечатать в 2-х экземплярах, страницу 3 - в одном. Прошу помощи!

[Serge_Bliznykov]

Сообщение от vvedenka

Шаблон состоит из 3-х страниц. Мне надо страницы 1,2 распечатать в 2-х экземплярах, страницу 3 - в одном. Прошу помощи!

попробуйте так

objDoc.PrintOut True 'Filename:=sOut, From:=1, To:=2, Copies:=2 ' отправляем фоном на печать
objDoc.PrintOut True 'Filename:=sOut, From:=3 Copies:=1 ' отправляем фоном на печать

[vvedenka]

Сообщение от Serge_Bliznykov

попробуйте так

Не получилось. Он так просто в 2-х экземплярах весь документ печатает.

[Аватар]

From Optional Variant The starting page number when Range is set to wdPrintFromTo.
To Optional Variant The ending page number when Range is set to wdPrintFromTo.

Полагаю, что еще Range нужно задать:

Range Optional Variant The page range. Can be any WdPrintOutRange constant.

Range:=wdPrintFromTo

[vvedenka]

Сообщение от Аватар

Полагаю, что еще Range нужно задать:

Range:=wdPrintFromTo

Это куда вставить?

[Serge_Bliznykov]

ой-её...

так у Вас же закомментировано всё (подсветка права!!!)!

а если так?

objDoc.PrintOut From:=1, To:=2, Copies:=2 ' отправляем фоном на печать
objDoc.PrintOut From:=3, Copies:=1 ' отправляем фоном на печать

или, если прав Аватар, тогда

objDoc.PrintOut Range:=wdPrintFromTo, From:=1, To:=2, Copies:=2 ' отправляем фоном на печать
objDoc.PrintOut Range:=wdPrintFromTo, From:=3, Copies:=1 ' отправляем фоном на печать

[vvedenka]

Неа, не работает. Если я вставляю обе строки, то он начинает ругаться на вторую. Если оставляю только первую, он тоже отказывается. Что в варианте аватара, что Serge_Bliznykov

[Serge_Bliznykov]

Сообщение от vvedenka

Если я вставляю обе строки, то он начинает ругаться на вторую.

какими словами?

Сообщение от vvedenka

Если оставляю только первую, он тоже отказывается.

в чём это проявляется? Как Вы поняли, что они именно "отказывается"?

если восстановить True - это на что-то влияет?

Вот такая строчка что-то даёт?

objDoc.PrintOut Range:=wdPrintFromTo, From:="1", To:="2"

а такая?

objDoc.PrintOut Pages:="1,2"

[vvedenka]

Блин, извиняюсь, срочно уехать пришлось. Теперь только завтра проверю.

[vvedenka]

Значит, по порядку.

objDoc.PrintOut From:=1, To:=2, Copies:=2 ' отправляем фоном на печать
objDoc.PrintOut From:=3, Copies:=1 ' отправляем фоном на печать

Получаю run-time error '13'
Type missmach
Нажимаю debug, вот эта строка выделена жёлтым: objDoc.PrintOut From:=1, To:=2, Copies:=2 ' отправляем фоном на печать




Следующий вариант.

objDoc.PrintOut Range:=wdPrintFromTo, From:=1, To:=2, Copies:=2 ' отправляем фоном на печать
objDoc.PrintOut Range:=wdPrintFromTo, From:=3, Copies:=1 ' отправляем фоном на печать

Получаю run-time error '5148' Число должно находиться в диапазоне от -32765 до 32767
Нажимаю debug, вот эта строка выделена жёлтым: objDoc.PrintOut Range:=wdPrintFromTo, From:=1, To:=2, Copies:=2 ' отправляем фоном на печать




Следующий вариант:

objDoc.PrintOut Range:=wdPrintFromTo, From:="1", To:="2"

Получаю run-time error '5148' Число должно находиться в диапазоне от -32765 до 32767
Нажимаю debug, вставленная строка светится желтым.





Последний вариант:

objDoc.PrintOut Pages:="1,2"

Принтер напечатал один экземпляр всех трёх страниц, но на компе вывалилась ошибка run-time error '4378' Object doesn't support this propety or method


Вот такая вот петрушка...