Как изменить размеры страницы

Evgesha

Как изменить размеры страницы
Вот мой код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TfrxReportPage *SeiteEinrichten;
SeiteEinrichten=new TfrxReportPage(frxReport1->FindObject("Page1"));
SeiteEinrichten->CreateUniqueName();
SeiteEinrichten->PaperSize=DMPAPER_USER;
SeiteEinrichten->PaperWidth=5;//StrToInt(Edit1->Text);
SeiteEinrichten->PaperHeight=5;//StrToInt(Edit2->Text);
frxReport1->ShowReport();
}

Ничего не получаеться
Помогите

AlexTZ

Нужно изменить размеры существующей или добавить новую страницу? Вот этот код непонятен:
SeiteEinrichten=new TfrxReportPage(frxReport1->FindObject("Page1"));

Evgesha

В принцепе без разницы можно и новую
но код написан для уже существующей страницы
Переменная SeiteEinrichten, через нее хочу создать новые параметры шерены и длены страницы. Но выскакивает ошибка, хотя копилируеться без проблем.

AlexTZ

Если надо добавить новую:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TfrxReportPage *SeiteEinrichten;
SeiteEinrichten=new TfrxReportPage(frxReport1);
SeiteEinrichten->CreateUniqueName();
SeiteEinrichten->PaperSize=DMPAPER_USER;
SeiteEinrichten->PaperWidth=5; //размер 5х5 мм
SeiteEinrichten->PaperHeight=5;
frxReport1->ShowReport();
}

Evgesha

Спасибо все работает, но как поменять размеры уже существующего листа
и как удалить созданый деномически лист