dbcrosstab и разрыв страницы

Комментарии

• gpi

  November 2005 отредактировано 01:51

  В событии OnBeforePrint для DBCrossTab написать

  if Engine.CurY>0 then Engine.NewPage;
  
• outman

  November 2005 отредактировано 01:51

  Спасибо.
  Есть еще один момент, который напрягает:
  При экспорте в Excel формируется файл, в котором разрыв страниц очень большой ( 10-15 см). Как сделать так, чтобы, если в отчете данные на вдух страницах, то в Excel получается файл без разрывов ?
  Понятно выразился ? Спасибо.
• outman

  November 2005 отредактировано 01:51

  gpi:
  А можно сделать перенос на новую страницу, только когда CrossTab не помещается на одной странице с данными ?
• gpi

  November 2005 отредактировано 01:51

  написал:

  Как сделать так, чтобы, если в отчете данные на двух страницах, то в Excel получается файл без разрывов ?

  В одном из последних билдов FR 3.19:

  написал:

  + добавлено свойство EmptyLines в XLS и XML экспорт
    (если установлено в 'false', то все пустые строки убираются,
    используется при экспорте без разрывов страниц для получения непрерывной таблицы)

  написал:

  А можно сделать перенос на новую страницу, только когда CrossTab не помещается на одной странице с данными ?

  Можно, если отчёт сделать двухпроходным

  var NeedNewPage: Boolean;
      PageTmp: Integer;
  procedure Cross1OnBeforePrint(Sender: TfrxComponent);
  begin
        if not Engine.FinalPass then
        begin
          PageTmp:=<Page>;
          NeedNewPage:=False;
        end
      else
        if NeedNewPage then Engine.NewPage;
    end;
  end;
  
  procedure Cross1OnAfterPrint(Sender: TfrxComponent);
  begin
       if (PageTmp<><Page>) and (not Engine.FinalPass) then
         NeedNewPage:=True;
  end;