Распечатать избранные главы документа Word - VBA

Формулировка задачи:

Есть документ Word. В нем несколько глав - разрывов раздела между ними нет, но каждая глава начинается с заглвания со стилем "Заголовок 1" и автонумерацией. Нужен макрос чтобы печатать только избранную часть документа. Например главы 4-5. С самой печатью понятно - но как узнать нужные номера страниц ? Можно перебрать например все абзацы - посмотреть где нужный абзац заголовка. Но как получить номер страницы на котором находится этот заголовок ?

Решение задачи: «Распечатать избранные главы документа Word»

textual
                            Листинг программы 
                        

                            Printer = oDoc.Application.ActivePrinter
oDoc.Application.ActivePrinter = "pdfFactory Pro"
'oDoc.PrintOut
oDoc.Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Pages:="1,3,9-10"
oDoc.Application.ActivePrinter = Printer
                        