Макрос печать разного количества страниц

[Jonny323]

Привет всем. Очень нужен макрос, думаю не сложный: Печать первой страницы в 6 экземплярах и 2ой страницы в 2 экземплярах.
Заранее спасибо.

[was3110]

http://orenstudent.ru/upragVBa.htm
верхний пример для Вас...

[Jonny323]

Спасибо большое, но есть один вопрос. документ содержит закладки и поля, которые не печатаются, как это исправить?

[Jonny323]

Похоже что разобрался. сам макрос выглядел вот так.

Sub myPrint()
PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:="6", Pages:="1", Collate:=False, Background:=True, PrintToFile:=False
PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:="2", Pages:="2", Collate:=False, Background:=True, PrintToFile:=False
End Sub

Я изменил на Application.PrintOut

Sub Print62()
Application.PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:="6", Pages:="1", Collate:=False, Background:=True, PrintToFile:=False
Application.PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentContent, Copies:="2", Pages:="2", Collate:=False, Background:=True, PrintToFile:=False
End Sub

Теперь вроде работает корректно, хотя что значит Application не знаю. Там вроде еще может быть ActiveDocument.