Печать Pagefooterа только на первой странице

Комментарии

• gpi

  June 2010 отредактировано 12:57

  Попробуйте разместить штамп на дочернем бэнде и после расчёта высоты бэндов отчёта проверяйте свободное место. Если места остаётся только на штамп, то
  Engine.ShowBand(Child1);
  Engine.NewPage;
• mulantroid

  June 2010 отредактировано 12:57

  Кинул Child. На него поместил штамп. Child привязал к DetailData. На событие DetailData OnAfterCalcHeigth повесил то, что вы сказали:
  Engine.ShowBand(Child1);
  Engine.NewPage;
  Насколько я понимаю, Child изначально должен быть невидимым (в дизайнере поставил Visible в false)
  Правильно я все сделал?
  Вопрос такой. Какая переменная отвчает за свободное место и как узнать высоту childa
• gpi

  June 2010 отредактировано 12:57

  написал:

  Child привязал к DetailData

  Child не нужно привязывать к какому-либо бэнду

  написал:

  Какая переменная отвчает за свободное место и как узнать высоту childa

  Engine.FreeSpace и Child1.Height
• mulantroid

  June 2010 отредактировано 12:57

  Премного благодарю. Завтра попробую, о результатах отпишу.
  
  Возникает еще такой вопрос. С учетом того, что строки бэнда с данными (тот, который до штампа) могут расширяться, штамп будет немного плавать вверх вниз
  Будет ли штамп прижат к нижней границе листа, если я проделаю следующие действия:
  Добавлю еще один Child (Child2), на него повешу вертикальные линии, расположенные, как в бэнде с данными, настрою свойство StretchMode=smMaxHeigth, скрою его (Child) и на событие OnAfterCalcHeigth бэнда с данными напишу
  if Engine.FreeSpace <= Child1.Height then
  begin
  Child2.Height := Engine.FreeSpace - Child1.Height;
  Engine.ShowBand(Child2);
  Engine.ShowBand(Child1);
  Engine.NewPage;
  end;
• mulantroid

  June 2010 отредактировано June 2010

  Проверил. Описываю что и где я написал.
  На событие DetailData1OnAfterCalcHeigth

  if ((Engine.FreeSpace <= Child1.Height + 60) and (<Page> = 1))  
         then
         begin
                 Engine.ShowBand(Child1);
                 Engine.NewPage;
         end;
  

  +60 потому, что иначе никак, видимо FreeSpace содержит и отступ
  
  На событие Footer1OnAfterPrint

  if (<Page> = 1)
         then
         begin
                 Engine.ShowBand(Child1);
                
         end;
  

  Footer1 Содержит итоги по DetailData1.
  Что имею: Штамп печатается там где надо, но из-за того, что Строки DetailData могут расширяться, штамп немного плавает вверх-вниз. Пробовал впихнуть Child2 с линиями, но не получилось почему-то.
  Вот соответствующий код:

  if ((Engine.FreeSpace <= Child1.Height + 60) and (<Page> = 1)) 
         then
         begin
                 Line148.Height := Engine.FreeSpace - Child1.Height;  Эта линия принадлежит Child2
                 Set('Engine.FreeSpace', Engine.FreeSpace - Line148.Height);   
                 Engine.ShowBand(Child2);
                 Engine.ShowBand(Child1);
                 Engine.NewPage;
         end;
  

  Линия 148 принадлежит Child2
  
  Получается, что childы наслаиваются один на другой, кроме этого, высота Child2 визуально намного больше, чем надо.
  Да, кстати, Оба Childa видимые (Visible=true).
  
  Уважаемый gpi, подскажите, можно как-то решить эту проблему?
• gpi

  June 2010 отредактировано 12:57

  Пример в аттаче
• mulantroid

  June 2010 отредактировано June 2010

  Спасибо огромное за пример. Правда я сделал еще вчера и немного по-другому.
  
  На событие DetailData1 OnAfterCalcHeigth поместил вот это:

  if ((Engine.FreeSpace <= Child1.Height + DetailData1.Height) and (<Page> = 1))
         then
         begin
                Child2.Height := Engine.FreeSpace - Child1.Height;                   
                Memo118.Height := Engine.FreeSpace - Child1.Height;
                Engine.ShowBand(Child2);
                Engine.ShowBand(Child1);
                Engine.NewPage;
         end;
  

  А на событие Footer1 OnAfterPrint вот это:

  if (<Page> = 1)
        then
         begin
                Child2.Height := Engine.FreeSpace - Child1.Height;                   
                Memo118.Height := Engine.FreeSpace - Child1.Height;
                Engine.ShowBand(Child2);
                Engine.ShowBand(Child1);
         end;
  

  
  Работает именно так как надо. Штамп расположен внизу, до него с помощью chld2 дорисовываются линии. Если данных в DetailData хватает только на один лист, то второй пустой лист создан не будет.
  
  Вообщем, огромное спасибо gpi за указание правильного пути в поиск решения. Было бы, конечно, хорошо, если бы этот функционал на уровне свойств компонентов(не печатуемость pagefootera на первой странице и заполнение пустого места до pagefootera вертикальными линиями последнего напечатанного бэнда) появился в следующих версиях, но это уже к разработчикам.
• mulantroid

  July 2010 отредактировано 12:57

  Дабы не описывать свою задачу снова, задам вопрос в этой же теме. Итак, спустя некоторое время, мне требуется осуществить сортировку среди данных DetailData по некоторому полю. Подскажите как это сделать.
  
  Данные поступают в отчет так:
  TAdoQuery-> TfrxDBDataSet1 - это master
  TAdoTable-> TfrxDBDataSet2 - это detail
  
  В свойствах TAdoTable указано кто является мастером (TAdoQuery) и по каким полям нужно устанавливать связь. TAdoTable связан с таблицей-представлением (viev).
  
  Использовать TAdoQuery вместо TAdoTable и прописать там "order by <my_field>" не могу, т.к. у TAdoQuery нет свойств MasterFields, MasterSource, и тогда я не смогу установить связь master-detail.
  
  Заранее благодарю.
• gpi

  July 2010 отредактировано 12:57

  написал:

  т.к. у TAdoQuery нет свойств MasterFields, MasterSource, и тогда я не смогу установить связь master-detail.

  Зато есть событие OnAfterScroll
• mulantroid

  November 2010 отредактировано 12:57

  В продолжение истории возникли еще вопросы.
  
  В процессе эксплуатации нашлись такие записи в DetailData, которые длинны настолько, что первая же строка DetailData является непомерно длинной, что в свою очередь приводит к тому, что внизу листа печатается штамп (Child1), а печать этих данных переносится на следующую страницу.
  Поставил у DetailData свойство split = true, то есть я хочу, чтобы DetailData частично печаталась перед штампом Child1, а остальное переносилось на другой лист, но ситуация не изменилась, поскольку возможность "сплитирования" не учитывается в расчетах FreeSpase
  
  Как мне заставить DetailData разбить (если это необходимо) очередную строку не по Engin.FreeSpace, а по Engine.FreeSpace - Child1.Height?
  
  Или может есть другие способы?
  
  Благодарю заранее за помощь.