楼上同仁。不必客气。我很久不用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;