这是我前几天刚研究出来的，你看看：
/////////////////////生成QRLabel控件（即标题）///////////////////////
wid:=718 div (query1.fieldCount);////间隔////////////
for i:=0 to query1.fieldCount-1do
begin
with TQRLabel.create(tempprint_f.ColumnHeaderBand1)do
begin
parent:=tempprint_f.ColumnHeaderBand1;
caption:=query1.Fields.fieldname;//ListBox2.Items.Strings;
left:=10+wid*i;
top:=5;
end;
end;
