Печать отчета с заданной страницы
Доброе время суток
Пишу скрипт в Fast Peport в v. 4.7.95
Отчет состоит из 19 страниц Page
Задача: Сформировать отчет с заданной страницы
Путь решения: Устанавливать свойство Visible ненужных страниц в False
Решение:
Из из события отчета :tfrxReport onStartReport вызывается процедура
Код:
procedure SetParamReport(Sender: TfrxComponent);
var
nMont,i: Int;
oPage: TfrxComponent;
frxReport1: TfrxReport;
begin
frxReport1:=TfrxReport(Sender);
nMont:=<rpxAPARAMS."STARTMOON">;
for i:=1 to nMont-1 do
begin
oPage:=frxReport1.FindObject('Page'+IntToStr(i));
oPage.Visible:=False;
//Page1.Visible:=False;
end;
end;
Проблема: в строке кода oPage.Visible:=False; возникает ошибка -
Неопределенный индентификатор: Visible
Вопросы:
1. Что делаю неправильно ?
2. Другие пути решения задачи
Пишу скрипт в Fast Peport в v. 4.7.95
Отчет состоит из 19 страниц Page
Задача: Сформировать отчет с заданной страницы
Путь решения: Устанавливать свойство Visible ненужных страниц в False
Решение:
Из из события отчета :tfrxReport onStartReport вызывается процедура
Код:
procedure SetParamReport(Sender: TfrxComponent);
var
nMont,i: Int;
oPage: TfrxComponent;
frxReport1: TfrxReport;
begin
frxReport1:=TfrxReport(Sender);
nMont:=<rpxAPARAMS."STARTMOON">;
for i:=1 to nMont-1 do
begin
oPage:=frxReport1.FindObject('Page'+IntToStr(i));
oPage.Visible:=False;
//Page1.Visible:=False;
end;
end;
Проблема: в строке кода oPage.Visible:=False; возникает ошибка -
Неопределенный индентификатор: Visible
Вопросы:
1. Что делаю неправильно ?
2. Другие пути решения задачи
Комментарии
...
oPage:=TfrxReportPage(frxReport1.FindObject('Page'+IntToStr(i)));
2. А они нужны?