QueryReport 的小问题，急！急！(50分)

我要制作一个每页都固定的表，每页都有表头，表尾，且每页的行数固定，不
管数据的记录数为多少，（如果一页的记录数只有1个，他都要打印出10行）；
Thanks a lot!!!

不足一页的表要添加一些空记录，即可。

加两个TQRBAND，
其中一个的BANDTYPE为RBPAGEHEADER，
另一个的BANDTYPE为RBPAGEFOOTER

类似的问题有人问过，答案是在背景上先画好格子。
D3可以,D5好象不行。
还是看看philips的方法吧。

向Jamw请教！请详细一点，Thank you!

＞＞加两个TQRBAND，
＞＞其中一个的BANDTYPE为RBPAGEHEADER，
＞＞另一个的BANDTYPE为RBPAGEFOOTER
这只能打印表头，表尾。
＞＞如果一页的记录数只有1个，他都要打印出10行。
这个作不到。

这个问题是可以解决的，不过比较麻烦，如果采用两层结构就更麻烦了，
本地的数据库和三层结构可稍微容易点。我这儿有一个完整的例子（两层的），
不过暂时不能给你，这是我跟人谈的一个项目，谈完后给你。
（如果需要，我可以先把可执行文件发给你，代码则暂时不能)

最好是自己用TPRINTER控制打印.下例你修改一下即可
procedure TForm6.BitBtn3Click(Sender: TObject);
const
LeftBlank=1; //定义页边距，单位厘米
RightBlank=1;
TopBlank=1;
BottomBlank=1;
var
PointX,PointY:integer;
PointScale,PrintStep:integer;
s:string;
x,y:integer;
i:integer;
begin //获取当前打印机的分辨率
PointX:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/2.54);
PointY:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSY)/2.54);
//根据打印机和屏幕的分辨率计算出从屏幕转换到打印机的比例　
PointScale:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/Screen.PixelsPerInch+0.5); //横向打印
printer.Orientation:=poPortrait;
//打印的字体和大小
printer.Canvas.Font.Name:='宋体';
printer.canvas.Font.Size:=12;
//根据字体的大小确定每行的高度
s:='出货统计明细表';
PrintStep:=printer.canvas.TextHeight(s)+16;
//打印的起点位置
x:=PointX*LeftBlank;
y:=PointY*TopBlank;
//DataSource1是DBGrid1所连接的数据源
if ((DM1.ds3.DataSet).Active=true) and ((DM1.ds3.DataSet).RecordCount>0) then
begin
printer.BeginDoc;
(dm1.ds3.DataSet).First;
while not (dm1.ds3.DataSet).Eof do
begin //打印DBGrid中的所有列
for i:=0 to DBGrid1.FieldCount-1 do
begin
//假如所要打印的列超出了打印范围，则忽略该列
if (x+DBGrid1.Columns.Items.Width*PointScale)<=(Printer.PageWidth-PointX*RightBlank) then
begin //画表格线
//每页的第一行打印表头
Printer.Canvas.Rectangle(x,y+200,x+DBGrid1.Columns.Items.Width*PointScale,y+200+PrintStep);
if y=PointY*TopBlank then begin
printer.Canvas.Font.Name:='黑体';
printer.canvas.Font.Size:=16;
Printer.Canvas.TextOut((Printer.PageWidth-printer.Canvas.TextWidth(s)) div 2,y+8,s);
printer.Canvas.Font.Name:='宋体';
printer.canvas.Font.Size:=12;
Printer.Canvas.TextOut(x+8,y+8+200,DBGrid1.Columns.Title.Caption);
end
else
Printer.Canvas.TextOut(x+8,y+200+8,DBGrid1.Fields.asString);
end; //计算下一列的横坐标
x:=x+DBGrid1.Columns.Items.Width*PointScale;
end;

if not (y=PointY*TopBlank) then
(dm1.ds3.DataSet).next;
x:=PointX*LeftBlank;
y:=y+PrintStep; //换页
if (y+PrintStep)>(Printer.PageHeight-PointY*BottomBlank) then
begin
Printer.NewPage;
y:=PointY*TopBlank;
end;
end;

printer.EndDoc;

如果记录不多的话,预览打印前,先统计一下记录的总数,
然后除每页的行数,根据余数的多少,增加相应数量的空记录.

多人接受答案了。