Вывод информации на печать

← →
Wernut (2003-06-01 08:46) [0]

Здравствуйте. На форме есть StringGrid (50 строк), куча Labelов, Chart. Как мне создать отчет и напечатать всю эту информацию? Т.е нужно это все просмотреть как будет выглядеть на бумаге и распечатать.
Можно ли мне информацию вывести в отчет без всяких баз данных?
Возможно вообще использовать QuickRep?
Спасибо.:)

← →
rfptk (2003-06-01 11:25) [1]

это просто плохая идея и не стоит терять на этом время! :)

← →
Anatoly Podgoretsky © (2003-06-01 11:27) [2]

Достаточно использовать лишь один QuickRep, остальное он обеспечит.

← →
Wernut (2003-06-01 15:55) [3]

>Anatoly Podgoretsky © (01.06.03 11:27)
>Достаточно использовать лишь один QuickRep, остальное он >обеспечит.

Это как ?
Как его связать со StringGrid ?

← →
Anatoly Podgoretsky © (2003-06-01 18:26) [4]

Для этого тебе даны примеры и справка.

← →
Wernut (2003-06-02 18:26) [5]

Народ! Как QuickRep связать со StringGrid"ом?
Объясните кто-нибуть :)

← →
Wernut (2003-06-02 18:52) [6]

Как я понимаю DataSet QuickRep"да нужно обязательно связать с набором данных..., но счем?
Так же нельзя quickrep1.DataSet:=stringgrid1; :(

← →
Sandman25 © (2003-06-02 18:54) [7]

QuickRep.OnNeedData + F1

← →
Wernut (2003-06-02 19:18) [8]

Сказали же смотри прмеры, а не только справку.

Текущий TStringGrid.Rows[] разбиваешь на строки и каждую назначаегт на соответсвующий QRLabel, находящийся в DetailBand. Всё это на onNeedData

Wernut
Вот что мне показывает F1 на OnNeedData:

OnNeedData event

Declaration

property OnNeedData : procedure (Sender : Tobject; MoreData : boolean)

Applies to

TQuickRep
TQRSubDetail

Purpose

OnNeedData is used when creating reports from sources other than Delphi datasources, such as string lists, arrays, text files and almost any other source imaginable. OnNeedData is called whenever QuickReport would normally issue a DataSet.Next command to move to the next record of a dataset. Setting MoreData to False will cause the report (or sub detail) to terminate.

Example

This code will print all strings in a TStringList to in a report:

var
CurrentItem : Integer;
SomeStringList : TStringList;

procedure TForm1.QuickRep1BeforePrint(Sender: TQuickRep;
var
PrintReport: Boolean);
begin
CurrentItem := 0;
PrintReport := SomeStringList.Count > 0;
end;

procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData; Boolean);
begin
if CurrentItem < SomeStringList.Count then
QRLabel1.Caption := SomeStringList[CurrentItem];
Inc(CurrentItem);
MoreData := CurrentItem <= SomeStringList.Count;

end;

For more information on how to create event driven reports look at the chapter on this topic earlier in this documentation.

Вывод информации на печать Найти похожие ветки