Procedure TForm1.Button1Click(Sender As Object);
Var
 aReport : TCustomerReport;
 FieldList : Tstringlist; //存入你所要列出的欄位名稱
Begin
 aReport := Nil;
 FieldList := Tstringlist.Create; 
 Try
   QRCreateList(aReport, Self.Query1, '報表抬頭',  FieldList);
 Finally
   FieldList.Free;
   aReport.Free;
 End;  
End;

引言: 建議可用

Procedure TForm1.Button1Click(Sender As Object);
Var
 aReport : TCustomerReport;
 FieldList : Tstringlist; //存入你所要列出的欄位名稱
Begin
 aReport := Nil;
 FieldList := Tstringlist.Create; 
 Try
   QRCreateList(aReport, Self.Query1, '報表抬頭',  FieldList);
 Finally
   FieldList.Free;
   aReport.Free;
 End;  
End;

詳細用法可參考該函數的用法 ========================= 讀萬卷書~不如來K.TOP走一遭 =========================

引言: 謝謝,不過請問如何設置各欄位距離,格式等?

  for I := 0 to ADOQuery1.FieldCount - 1 do
  begin
    if (ADOQuery1.Fields[i].DataType = ftMemo) then
      .....
 
  end;