B
billbobo
Unregistered / Unconfirmed
GUEST, unregistred user!
在fastreport的demo中有一个现成的例子打印stringgrid的,我研究了一下它的源代码,就是用到frxreport和frxcrossobject,然后在报表设计窗口中加入一个TfrxCrossView。然后在frxreport的beforeprint事件中加入如下代码
procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView(c);
for i := 1 to 16do
for j := 1 to 16do
Cross.AddValue(, [j], [StringGrid1.Cells[i - 1, j - 1]]);
end;
end;
但我按它的方法做了,在我的程序里就是不能打印stringgrid的内容,哪位用这个方法打印成功的指点一下,到底哪个环节疏忽?
procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView(c);
for i := 1 to 16do
for j := 1 to 16do
Cross.AddValue(, [j], [StringGrid1.Cells[i - 1, j - 1]]);
end;
end;
但我按它的方法做了,在我的程序里就是不能打印stringgrid的内容,哪位用这个方法打印成功的指点一下,到底哪个环节疏忽?