Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ печать определенной страницы

Автор: marwell 13.10.2012 21:14

доброго времени суток
для печати документа пользовался функцией Application.ActiveDocument.Printout;
появилась необходимость печати только определенных страниц, а не всего документа.

Application.ActiveDocument.Printout(From:=n, To:=m);

не работает. Буду очень благодарен совету

Автор: IUnknown 13.10.2012 21:30

Application.ActiveDocument.PrintOut(Pages:=IntToStr(n) + '-' + IntToStr(m));

не пробовал? Или

Application.ActiveDocument.PrintOut(Pages:=Format('%d-%d', [n, m]));

, что, в принципе, одно и то же, но второй вариант мне как-то ближе, лучше читается.

Автор: marwell 13.10.2012 22:25

Цитата(IUnknown @ 13.10.2012 17:30)

Application.ActiveDocument.PrintOut(Pages:=IntToStr(n) + '-' + IntToStr(m));

не пробовал? Или

Application.ActiveDocument.PrintOut(Pages:=Format('%d-%d', [n, m]));

, что, в принципе, одно и то же, но второй вариант мне как-то ближе, лучше читается.

к сожалению, в обоих случаях печатает весь документ

Автор: IUnknown 13.10.2012 22:33

const wdPrintRangeOfPages = 4;
// ...
App.ActiveDocument.PrintOut(Pages:=Format('%d-%d', [n, m]), Range:=wdPrintRangeOfPages);

Только что проверено, напечатало страницы с 3 по 5-ю, как заказывал.

Автор: Гость 13.10.2012 23:12

Цитата(IUnknown @ 13.10.2012 18:33)

const wdPrintRangeOfPages = 4;
// ...
App.ActiveDocument.PrintOut(Pages:=Format('%d-%d', [n, m]), Range:=wdPrintRangeOfPages);

Только что проверено, напечатало страницы с 3 по 5-ю, как заказывал.

теперь да, работает. И в который раз уже огромное спасибо за помощь

Автор: Гость 13.10.2012 23:12

Цитата(Гость @ 13.10.2012 19:12)

теперь да, работает. И в который раз уже огромное спасибо за помощь

ой, зайти забыл)