Печать нескольких StringGrid?

groppen

Как вывести на печать 2 и более объектов StringGrid?

AlexTZ

См. демку demos\printstringgrid. По аналогии, размещаем несколько объектов TfrxCrossView и заполняем их данными.

groppen

В этом вся проблема, что по аналогии с этим примером ничего не получается.
Можно пожалуйста по подробнее?


Что мне надо добавить, а то у меня ничего не получается, а мне срочно надо что-то делать.

procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
vi := StrToInt(Edit1.Text);
m := StrToInt(Edit2.Text);
if c is TfrxCrossView then
begin
Cross := TfrxCrossView©;
for i := 1 to vi do
for j := 1 to m+1 do
Cross.AddValue(, [j], [StringGrid1.Cells[j - 1, i - 1]]);
end;
end;

groppen

НЕ получается заполнить их разными данными.

groppen

У кого есть пример, вышлите пожалуйста PLEASE