Как из Delphi пустить на печать определенные страницы документа MS Word?

[Akemi]

Здравствуйте.

Подскажите пожалуйста как из Delphi пустить на печать определенные страницы документа MS Word (.doc)?

Для печати всего документа делаю так:

MSWORD := CreateOleObject('Word.Application') ;
MSWORD.Documents.Open(mydir + '\shablony\04s.doc');
MSWORD.Visible := False;
MSWORD.PrintOut;
MSWORD.DisplayAlerts := False;
MSWORD.Application.Quit;

А как сделать например чтоб на печать запустились только третья и четвертая станицы документа?

[evg_m]

очень удобный способ спросить у самого word.

1. Word сервис Макросы Начать запись
2. выполнить действия про которые хочешь узнать
3. Остановить запись
4. посмотреть какие команды запомнил макрос
5. использовать эти команды в своей программе.

[Kotofff]

MSWORD.PrintOut;

Синтаксис вызова этого
метода:
Printout(from, To, Copies, Preview, ActivePrinter, PrintToFile, Collate);

http://programmersforum.ru/showpost....4&postcount=25 там в самом низу книга "Программирование документов и приложений MS Office в Delphi" (ссылка рабочая) и далее на странице 332 читаем про метод PrintOut подробно !!!

Т.е. у тебя по-моему будет так :

MSWORD.PrintOut(From:=3, To:=5); // соответственно с 3-й по 5-ю

[Akemi]

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

очень удобный способ спросить у самого word.

1. Word сервис Макросы Начать запись
2. выполнить действия про которые хочешь узнать
3. Остановить запись
4. посмотреть какие команды запомнил макрос
5. использовать эти команды в своей программе.

я этим методом пользуюсь довольно долго, когда пишу что-то под VBA, и иногда помогает в Делфе, когда работаю с отчетами в Excel. Поэтому в первую очередь я попробовал именно ваш способ, но к сожалению интерпретировать этот макрос чтоб он работал в Делфи никак не получается:

Sub Макрос4()
'
' Макрос4 Макрос
'
'
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="1-2", PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
        True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub

-----------------------------------------------------------------------

Такой вариант тоже не работает:

MSWORD.PrintOut(From:=3, To:=5);

Спасибо за книжку, буду пытаться разобраться с этим вопросом сам...