IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> печать определенной страницы
сообщение
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 198
Пол: Мужской

Репутация: -  1  +


доброго времени суток
для печати документа пользовался функцией Application.ActiveDocument.Printout;
появилась необходимость печати только определенных страниц, а не всего документа.
Application.ActiveDocument.Printout(From:=n, To:=m);
не работает. Буду очень благодарен совету
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Разработчик
Free Pascal: Разработчик

Репутация: -  627  +


Application.ActiveDocument.PrintOut(Pages:=IntToStr(n) + '-' + IntToStr(m));
не пробовал? Или
Application.ActiveDocument.PrintOut(Pages:=Format('%d-%d', [n, m]));
, что, в принципе, одно и то же, но второй вариант мне как-то ближе, лучше читается.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 198
Пол: Мужской

Репутация: -  1  +


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

Application.ActiveDocument.PrintOut(Pages:=IntToStr(n) + '-' + IntToStr(m));
не пробовал? Или
Application.ActiveDocument.PrintOut(Pages:=Format('%d-%d', [n, m]));
, что, в принципе, одно и то же, но второй вариант мне как-то ближе, лучше читается.

к сожалению, в обоих случаях печатает весь документ
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Разработчик
Free Pascal: Разработчик

Репутация: -  627  +


const wdPrintRangeOfPages = 4;
// ...
App.ActiveDocument.PrintOut(Pages:=Format('%d-%d', [n, m]), Range:=wdPrintRangeOfPages);
Только что проверено, напечатало страницы с 3 по 5-ю, как заказывал.

Сообщение отредактировано: IUnknown -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






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

const wdPrintRangeOfPages = 4;
// ...
App.ActiveDocument.PrintOut(Pages:=Format('%d-%d', [n, m]), Range:=wdPrintRangeOfPages);
Только что проверено, напечатало страницы с 3 по 5-ю, как заказывал.

теперь да, работает. И в который раз уже огромное спасибо за помощь smile.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






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

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

ой, зайти забыл)
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 17.10.2019 10:34
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name