проблемы со скрытием страницы

sam_peter

Добрый день.
Прилагаю пример отчета.
Вопрос в следующем: Как скрыть какую-либо страницу или все для Page2 ?
Запрос не должен правится. Нужно просто по условию скрыть страницу, например 2 при ...FieldByName('').Value =2.

gpi

Попробуйте перенести Ваш код в procedure Page1OnBeforePrint(Sender: TfrxComponent);

sam_peter

gpi написал: »

Попробуйте перенести Ваш код в procedure Page1OnBeforePrint(Sender: TfrxComponent);

В этой процедуре я могу только скрыть или показать Page2, а не отдельные страницы.
Или я не прав ?

sam_peter

Под листом я понимаю - те страницы, что мы видим в дизайнере.
Под страницами - те страницы, которые строятся отчетом для каждого листа.

gpi

Может быть, Вам лучше просто скрывать MasterData1?

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  MasterData1.Visible := DoaQuery1.FieldByName('rownums').Value <> 2
end;

sam_peter

gpi написал: »

Может быть, Вам лучше просто скрывать MasterData1?

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
  MasterData1.Visible := DoaQuery1.FieldByName('rownums').Value <> 2
end;

Просто скрыть не помогает.
В этом случае мы получаем пустую 2 страницу с PageFooter(его конечно можно спрятать).
Но пустая страница тоже плохо.
Я не зря выложил пример - можно все свои предположения проверять сразу.
Мне кажется, что это проблема которую надо решать разработчикам.

andyP

sam_peter написал: »

Просто скрыть не помогает.
В этом случае мы получаем пустую 2 страницу с PageFooter(его конечно можно спрятать).
Но пустая страница тоже плохо.
Я не зря выложил пример - можно все свои предположения проверять сразу.
Мне кажется, что это проблема которую надо решать разработчикам.

Апну тему ибо проблема схожая.
В отчете есть PAGE2 с бэндами MasterData, DetailData. В свойствах PAGE2 указываю PrintIfEmpty=False, но страница все равно выводится на печать пустой.
Возможно я не правильно понял функцию PrintIfEmpty, тогда каким образом спрятать пустую страницу?

Menshchikov

andyP написал: »

Апну тему ибо проблема схожая.

И я поддержу вопрос: как можно скрыть уже сгенерированную страницу?
У меня ситуация такая. Есть 2-проходный отчет (чтобы сформировать оглавление), на одной из страниц в дизайнере используется мастер-дата бэнд с групповым хедером и футером, каждая группа начинает новую страницу (номер которой идет в оглавление). Мастер-дата фильтруется при построении отчета, поэтому в итоге на странице может оказаться только хедер группы и страничный футер (а самих данных нет) - в этом случае хотелось бы скрыть такую страницу в предварительном просмотре и при печати (и не включать ее в оглавление, кончено). Сейчас имею вот такой код (сделал по аналогии с другими страницами того же отчета, но на них принцип был другой: там скрывается вся дизайнерская страница, а не некоторые из сгенерированных, и там все работает номально):

// ----- Items                                                                                               
procedure ItemsOnBeforePrint(Sender: TfrxComponent);
begin
  ItemGroupNumber := 0;
end;

procedure GroupHeaderItemsOnBeforePrint(Sender: TfrxComponent);
begin
  Inc(ItemGroupNumber);
  ItemNumber := 0;
  TmpPageNo := <Page#> - dpconst + dp; // page number where the group starts
end;

procedure MasterDataItemsOnBeforePrint(Sender: TfrxComponent);
begin
  MasterDataItems.Visible :=
    // we skip the first item in the list if it's a room [item] and then its containing items
    (VarToStr(<ItemDataSet."RoomID">) <> 'Room') and
    (VarToStr(<ItemDataSet."Title">) <> 'Room') and
    (
      (Trim(VarToStr(<ItemDataSet."Specification">)) <> '') or
      (Trim(VarToStr(<ItemDataSet."Comments">)) <> '') or
      (Trim(VarToStr(<ItemDataSet."CheckInComments">)) <> '') or
      (Trim(VarToStr(<ItemDataSet."CheckOutComments">)) <> '') or
      (Trim(VarToStr(<ItemDataSet."Responsibility">)) <> '')
    );
  if MasterDataItems.Visible then begin
    Inc(ItemNumber);
  end;
end;

procedure GroupFooterItemsOnBeforePrint(Sender: TfrxComponent);
begin
  if (not Engine.FinalPass) then begin
    if (ItemNumber > 0) then begin
      ToCTextLeft := ToCTextLeft + VarToStr(<ItemDataSet."Title">) + #13#10;
      ToCTextRight := ToCTextRight + IntToStr(TmpPageNo) + #13#10;
    end
    else begin
      Items.Visible := False; // не работает, как надо!!!
      Dec(ItemGroupNumber);
      Dec(dp);
    end;
  end;          
end;

Если у кого-то есть идеи, заранее спасибо.