Печать многостр. отчета

Hel · February 2006

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

Имеется отчет - договор для сотрудников (на 4-х стр.). При печати выводятся сначала все Стр.1, потом все Стр. 2 и т.д. Очень неудобно.

Как вывести на печать друг за другом все четыре страницы сразу одного договора, т.е. Стр.1, Стр. 2, Стр. 3, Стр. 4?

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

Lex · February 2006

Влоб вроде не получиться.
Попробуй сделать MasterData и три Child
у каждого поставь свойство StartNewPage в True и
размести на них свои страницы договора (естественно все данные о договоре должны возвращаться одним набором данных)

-=Serg=- · February 2006

Ну почему ж, должно получится.
Присвой frxReport.DataSet нужный тебе датасет. А все бенды укажи на virtual dataset. Должно заработать.

-=Den=- · February 2006

Есть другой вариант.
Добавте на форму еще один TfrxReport и в коде:

i:integer;
count:integer;
begin
frxReport1.PrepareReport();
frxReport2.PrepareReport();
count := round(frxReport1.PreviewPages.Count/frxReport1.PagesCount);
for i:= 0 to frxReport1.PreviewPages.Count  -1 do
begin
frxReport2.PreviewPages.AddPage(nil);
frxReport2.PreviewPages.ModifyPage(i,frxReport1.PreviewPages.Page[((i mod 4*count)+((i div frxReport1.PagesCount) mod count)]);
end;
frxReport2.ShowPreparedReport;
end;

Hel · February 2006

TO -=Serg=-

Спасибо большое, ваш ответ мне помог.

Печать многостр. отчета

Комментарии

Оставить комментарий