Вопрос по поводу нумерации страниц

stuff_pkb · June 2006

Построение отчета:

На первой странице (в низу справа) необходимо располагать штамп:
http://www.tarnet.pisem.net/bigStamp.jpg

На всех последующих страницах другой штамп (меньшего размера):
http://www.tarnet.pisem.net/smallStamp.jpg

Думал решить эту проблему по средством двух PageFooter. Нарисовать на одном один штамм, а на другом второй и управлять их видимостью, взависимости от текущего номера страницы. Но т.к. PageFooter на странице может быть только один, то об этом пришлось забыть.

Подскажите, хотя бы в общем, как можно было бы решить эту задачу.

stuff_pkb · June 2006

Вопрос решил в лоб. Расположил два штампа на одном PageFooter и
в событии PageFooter1OnBeforePrint устанавливаю видимость элементов
из которых сформированы штампы.

procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);
begin

   if (Engine.FinalPass) and (<Page>>1) then
   begin
      //скрываем первый штамп
      Line1.Visible := false;
      Line2.Visible := false;
      Line3.Visible := false;
      Line4.Visible := false;
      Line5.Visible := false;
      Line6.Visible := false;
      Line7.Visible := false;
      Line8.Visible := false;
      Line9.Visible := false;
      Line10.Visible := false;
      Line11.Visible := false;
      Line12.Visible := false;
      Line13.Visible := false;
      Line14.Visible := false;
      Line15.Visible := false;
      Line16.Visible := false;
      Line17.Visible := false;
      Line18.Visible := false;
      Line19.Visible := false;
      Line20.Visible := false;
      Line21.Visible := false;
      Line22.Visible := false;
      Memo11.Visible := false;
      Memo12.Visible := false;
      Memo13.Visible := false;
      Memo14.Visible := false;
      Memo15.Visible := false;
      Memo16.Visible := false;
      Memo17.Visible := false;
      Memo18.Visible := false;
      Memo19.Visible := false;
      Memo20.Visible := false;
      Memo21.Visible := false;
      Memo22.Visible := false;
      Memo23.Visible := false;
      Memo24.Visible := false;
      Memo25.Visible := false;
      Memo26.Visible := false;
      Memo27.Visible := false;
      Memo28.Visible := false;
      Memo29.Visible := false;
      Memo30.Visible := false;
      Memo33.Visible := false;
      Memo31.Visible := false;
      Memo32.Visible := false;
      Memo34.Visible := false;
      Memo35.Visible := false;
      Memo36.Visible := false;

      //открываем последующий
      Line23.Visible := true;
      Line24.Visible := true;
      Line25.Visible := true;
      Line26.Visible := true;
      Line27.Visible := true;
      Line28.Visible := true;
      Line29.Visible := true;
      Line30.Visible := true;
      Line31.Visible := true;
      Line32.Visible := true;
      Line33.Visible := true;
      Line34.Visible := true;
      Line35.Visible := true;
      Memo37.Visible := true;
      Memo38.Visible := true;
      Memo39.Visible := true;
      Memo40.Visible := true;
      Memo43.Visible := true;
      Memo44.Visible := true;
      Memo41.Visible := true;
      Memo42.Visible := true;
   end
end;

Вопрос по поводу нумерации страниц

Комментарии

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