fastreport3.17打印stringgrid的问题(100分)

  • 主题发起人 主题发起人 billbobo
  • 开始时间 开始时间
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的内容,哪位用这个方法打印成功的指点一下,到底哪个环节疏忽?
 
怎么都没人知道吗?
 
晕,大富翁真的没有能人吗?我问了两个问题居然都没人回答
 
用 Grid++Report 实现更简单,有个打印 DBGrid 的例子,稍微改改就可以成为打印 StringGrid 的通用办法。
 
没问题,检查一下你的STRINGGRID1的ROWCOUNT和COLCOUNT是不是不对呀?
 
后退
顶部