Несколько копий на одной странице

отредактировано 23:47 Раздел: FastReport 3.0
Есть документ который надо распечатать. Выглядит документ приблизительно так:

*******************
Кому: ФИО (выбирается из базы)
Отдел: Наименование (выбирается из базы)
*******************

Оператор в программе выбирает нужного человека, отдел и указывает количество копий этого документа на листе. В зависимости от выбранного количества копий при распечатке отчет должен выглядеть так:
если 1-а копия

*******************
Кому: ФИО (выбирается из базы)
Отдел: Наименование (выбирается из базы)
*******************

если две копии

*******************
Кому: ФИО (выбирается из базы)
Отдел: Наименование (выбирается из базы)
*******************
*******************
Кому: ФИО (выбирается из базы)
Отдел: Наименование (выбирается из базы)
*******************

Заранее спасибо.

Комментарии

  • отредактировано 23:47
    У меня немного другая задача (нужно печатать две копии накладной, если они влезают на страницу, если нет, то одну), но сделано так
    На странице лежит два бэнда типа TfrxChild. Один собственно с содержимым отчета, на другом просто горизонтальная пунктирная линия - линия разреза бумаги).
    В отчете на OnManualBuild следующий код
      Engine.ShowBand(bandInvoice);
      if Engine.CurY+bandCutLine.Height/2<=Engine.PageHeight/2 then
      begin
        Engine.CurY := Engine.PageHeight/2;
        Engine.ShowBand(bandCutLine);
        Engine.CurY := Engine.PageHeight/2+bandCutLine.Height;
        Engine.ShowBand(bandInvoice);
      end;
    

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

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.