Повторная печать страницы по условию

Комментарии

• AlexTZ

  October 2005 отредактировано 14:29

  У страницы есть св-во Dataset, ему можно присвоить датасет с нужным числом записей. Страница будет повторена N раз.
• RESEt

  October 2005 отредактировано 14:29

  ДатаСет уже присвоен, на его основе и строится отчет. Вот и нужно уже некоторые записи в этом ДС дублировать.
  Может это можно с помощью SQL сгенерировать? СУБД FB 1.0
• Andrew_Sh г.Минск

  October 2005 отредактировано 14:29

  RESEt написал:

  ДатаСет уже присвоен, на его основе и строится отчет. Вот и нужно уже некоторые записи в этом ДС дублировать.
  Может это можно с помощью SQL сгенерировать? СУБД FB 1.0

  1) На главной странице отчета размещаете бэнд MasterData1, к которому привязывате DataSet.
  2) На этот MasterData1 помещаете SubReport;
  3) На SubReport поместите MasterData2 с мемками для данных вашего датасета. Для MasterData2 датасет задавать НЕ НАДО.
  4) В обработчике OnBeforePrint для MasterData1 в зависимости от данных задаете нужное количество строк для MasterData2.
  
  Пример:

  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
    if <line#> mod 2= 0 then
      MasterData2.RowCount := 5
    else
      MasterData2.RowCount := 10;
  end;
  
• RESEt

  October 2005 отредактировано 14:29

  Спасибо за ответ. Попробую приспообить.
  Но проблема в том, что куждая запись выводится на отдельной стринице разменом 10*10см (для принтера этикеток).
• Andrew_Sh г.Минск

  October 2005 отредактировано 14:29

  RESEt написал:

  Спасибо за ответ. Попробую приспообить.
  Но проблема в том, что куждая запись выводится на отдельной стринице разменом 10*10см (для принтера этикеток).

  Для MasterData2 в вышеприведенном мной примере ставите "Формировать новую страницу" (StartNewPage=true), задаете нужный формат бумаги для страниц и все. Какие здесь проблемы?
• RESEt

  October 2005 отредактировано 14:29

  Проблемы в нехватке опыта. Для этого у меня есть такие, как Вы!
  Спасибо!!!
• gpi

  October 2005 отредактировано 14:29

  А я сделал так:
  в проект добавил frxUserDataSet1
  frxUserDataSet1.RangeEnd:=reCount
  frxUserDataSet1.RangeEndCount:=2
  в отчёте для свойств нужной страницы задал Page.Dataset:=frxUserDataSet1, предварительно добавив его к данным отчёта
• RESEt

  October 2005 отредактировано 14:29

  Оказалось гораздо проще все!
  Завести счетчик, проверять по событию количество копий, и делать DataSet.Prior.
  
  Я почему-то думал, что курсор однонаправленный, и перемещение возможно только вперед...
• Andrew_Sh г.Минск

  October 2005 отредактировано 14:29

  RESEt написал:

  Оказалось гораздо проще все!
  Завести счетчик, проверять по событию количество копий, и делать DataSet.Prior.
  
  Я почему-то думал, что курсор однонаправленный, и перемещение возможно только вперед...

  Вам выбирать конечно, но если есть Master-Detail связка датасетов, то при таком подходе будут выполняться лишние запросы к БД.