quickreport报表detailbandbeforeprint事件里的程序能不能只在预览的时候执行，而在打印的时候不执行？(100分)

我在detailbandbeforepring事件中有一些代码，
这样，在调用quickreport.preview的时候，这些代码执行了一次，
而在按下preview窗口上的print按钮执行打印的时候，这些代码又要被执行一次，
而后一次是没有必要的，怎样限制它不执行呢？
那些代码的作用是，为一些label赋值（根据dataset相应字段的值），或者调整报表控件
的格式。
谢谢！

应该只执行一次！
试着label的procedure TForm1.QRLabel1Print(sender: TObject;
var Value: String);
begin
QRLabel1.caption:='';
end;