小弟根據 hahalin 版大的說明 http://delphi.ktop.com.tw/topic.php?topic_id=41523 但問題是，小弟目前是用 delphi 3 ，D3 下 TQRCustomBand 並無 Expanded 的屬性，不知有人有解決的方案嗎，感謝

Delphi 3，好遙遠的記憶，沒expanded沒關係呀！height一定有吧！try it  

 
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  QRShape1.Size.Height:=DetailBand1.Size.Height;
end;

好想冬眠

跟據tonytop兄所提供的，還是不行  <>< face="Verdana, Arial, Helvetica">引言: Delphi 3，好遙遠的記憶，沒expanded沒關係呀！height一定有吧！try it

 
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  QRShape1.Size.Height:=DetailBand1.Size.Height;
end;

好想冬眠 < face="Verdana, Arial, Helvetica">

手邊也沒也D3..這樣不知道可不可以??? QRShape1.屬性 Shape 設為 qrsVertLine,Width 設為1.

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  QRShape1.Height:=DetailBand1.Height;
end;

TRY TRY SEE..

DetailBand 的抓到的高度永遠是 Design 時的所設的，看來除了 Expanded 能取得延展後的實際高度外，其他好像就沒辦法了 <>< face="Verdana, Arial, Helvetica">引言: 手邊也沒也D3..這樣不知道可不可以??? QRShape1.屬性 Shape 設為 qrsVertLine,Width 設為1.

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  QRShape1.Height:=DetailBand1.Height;
end;

TRY TRY SEE.. < face="Verdana, Arial, Helvetica">