프린트 버튼 클릭시 소스입니다.
프리뷰를 하면 날짜가 정상적으로 나타납니다, 근데 실제 프린트를 해보면
날짜가 빠진 상태에서 출력이 됩니다.
제가 프린트하고 하는 양식은  아래와 같습니다.
프리뷰를 하지 않고 바로 print를 하면 정상적으로 날짜가 나옵니다.
어떻게 해야 정상적으로 preview를 해도 날짜가 나타나고 프린트시에도 나타날까요?
좀 답답해서 그럽니다.. 해답을 좀 주세요.. 부탁드립니다.

ex) 매출일자     상품코드     상품명   ... ... ..
--------------------------------------------------------
   2004-01-02   *********     *******   *** *** **
                     *********     *******   *** *** **
   2004-01-03   *********     *******   *** *** **

with form1.query1 do
        begin
        close;
        parambyname('store_cd').asstring := copy(combobox1.text,1,4);
        parambyname('date1').asdatetime := datetimepicker1.datetime;
        parambyname('date2').AsDatetime := datetimepicker2.datetime;
        open;
        end;

        with form1.query2 do
        begin
        close;
        parambyname('store_cd').asstring := copy(combobox1.text,1,4);
        parambyname('date1').asdatetime := datetimepicker1.datetime;
        parambyname('date2').AsDatetime := datetimepicker2.datetime;
        open;
        end;

        form1.QRlabel10.caption := datetostr(datetimepicker1.date);
        form1.QRlabel12.caption := datetostr(datetimepicker2.date);
        form1.quickrep1.preview;
        form1.quickrep1.free;
   finally
        form1.free;
   end;

그리고 프린트폼상에서의 소스입니다.
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
    if query1.bof = true then
    begin
    QRDBtext5.datafield := datetostr(query1.fieldbyname('sale_Date').Asdatetime);
    end;

    if query1.bof = false then
    begin
      if QRDBText5.datafield = datetostr(query1.fieldbyname('sale_date').Asdatetime) then
      begin
      QRDBText5.enabled := false;
      end;

      if QRDBText5.datafield <> datetostr(query1.fieldbyname('sale_date').Asdatetime) then
      begin

      QRDBText5.datafield := datetostr(Query1.fieldbyname('sale_date').Asdatetime);
      end;
    end;
end;

procedure TForm1.DetailBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
  QRDBText5.Enabled := true;
end;

procedure TForm1.QRBand1AfterPrint(Sender: TQRCustomBand;
BandPrinted: Boolean);
begin
  // QRDBText5.Enabled := true;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action := cafree;
end;

initialization RegisterClasses([Tform1]);

end.