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

InVariantian · July 2006

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

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

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

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

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

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

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

DmLam · July 2006

У меня немного другая задача (нужно печатать две копии накладной, если они влезают на страницу, если нет, то одну), но сделано так
На странице лежит два бэнда типа 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;

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

Комментарии

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