如何控制报表的各页(0分)

  • 主题发起人 主题发起人 水晶
  • 开始时间 开始时间

水晶

Unregistered / Unconfirmed
GUEST, unregistred user!
如何取得报表的第一页?
 
请问你用什么报表工具?
 
To 水晶:
怎么,连王大侠都不知道是谁?
 
王大侠:
敬上!!!
我现在已经放弃了,因为我觉得好像是做不出来,我用的是QReport,想在预览界面上
加个保存按钮,在保存为*.txt/*.csv/*.html的时候,不打印第一页以后的表头,和页脚
让它显示一个完整的表格形式,这样需要重新生成报表,是吗?请指教!
 
楼上同仁。不必客气。我很久不用QREPORT了。 但是你的问题我想可以这么做
先找到QREPORT的源代码。 在它的Preview窗口上添加一个保存按钮。
定义保存按钮的代码。 重新编译安装Q rEPORT 包.
在保存 *.txt *.csv时。 在 title band 的before print事件里
加上下面的类似代码
var i : Integer;
procedure Tform1.form1Create(Sender : TObject);
begin
i := 0;
end;
procedure TForm1.QRTitleBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if i >0 then
begin
QrTitleBand1.Enabled := False;
PrintBand := False;
end;
inc(i);
end;
 
多谢王大侠客!:)
我想还是不成,你那个方法在Preview中好像也看不到 QrTitleBand1是吧?
 
后退
顶部