如何用quickreport打印stringgrid中的内容(100分)

  • 主题发起人 主题发起人 trident99
  • 开始时间 开始时间
T

trident99

Unregistered / Unconfirmed
GUEST, unregistred user!
我的数据源是excel表格,用stringgrid显示excel中的内容 。可以用quickreport打印吗???
 
可以的,在Quickreport的OnNeeddata事件中判断Stringgrid的行数
 
在OnbeforePrint中,做好初始化
 
能不能 具体点。
 
试试Grid++Report,例子 PrintDBGrid 就是专门实现 DBGrid 的打印, 去 http://www.rubylong.cn 下载
 
不一定什么都用3方控件的啊。
procedure TForm6.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
begin
if i <= form1.stringgrid1.RowCount - 1 then
moredata := true else
moredata := false ;
end;
 
procedure TForm6.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
QRLabel1.Caption := form1.stringgrdi1.Cells[0,i] ;
inc(i);
end;
 
大致如上,你可以自己在修改一下
 
你的程序我明白
但是这种方法在预览中看不到
 
^_^可以的,这种方法我们都用多少各项目了,和正常的预览方法是一样的,你试试
 
后退
顶部