Отчет с использованием QReport

[Plohoy]

Нужно сформировать отчет всех элементов формы. Как это делать? Зарание благодарен!!

[Stilet]

1) кидаешь на форму QReport
2) На него QRBand (BandType=rbDetail)
3) Предположим у тебя на форме есть Мемо и Label - кидаешь QRLabel и QRMemo
4) В событии OnPrint для QRLabel пиши:

procedure TForm1.QRLabel1Print(sender: TObject; var Value: String);
begin
Value:=Label1.Caption;
end;

5) QRMemo можешь заполнить банально:QRMemo1.Lines.Text:=Memo1. Lines.Text;
Где угодно заполняй.

6)

 QuickRep1.Prepare;
 QuickRep1.Preview;

7) Радуешся )))

[Plohoy]

Qrep надо на новую форму? А если у меня элементы находятся на PageControl?

Можно ли сделать так чтоб текст печатался вертикально?

[Stilet]

Qrep надо на новую форму?

Не имеет значения куда. Все равно Preview откроет его в отдельном "окне"

А если у меня элементы находятся на PageControl?

Не имеет значения где находятся элементы. В крайнем случае указывай полный путь к ним.

Можно ли сделать так чтоб текст печатался вертикально?

Сомневаюсь. По-моему Rave Report такое позволяет

[Plohoy]

как файл называется чтоб подключить?

[Stilet]

Какой файл? Если ты о РейвРепорте то я в нем не специалист.

[Plohoy]

Qrepont не как нельзя текст развернуть? А если поменять орентацию текста?

[Stilet]

Qrepont не как нельзя текст развернуть?

Я не помню но по-моему нельзя, а вот ориентацию бумаги можно выставить - книжная, альбомная.

[Plohoy]

Сообщение от Stilet

Я не помню но по-моему нельзя, а вот ориентацию бумаги можно выставить - книжная, альбомная.

Как это сделать?

[Stilet]

QuickRep1.Page.Orientation:=poLandscape

- это альбомная ориентация.