我用的是 QReport控件,也使用了QRCompositeReport,代码如下: with QRCompositeReport1 do begin reports.Add(QuickReport2); reports.Add(QuickReport3); reports.Add(QuickReport4); Preview; end; 可是预览出来什么也没有,什么原因?如果单页预览,却没有问题。大虾们看看,给点建议
可以将reports的print setting当中的属性值做些修改,我记得是那一项改一下就可以了
只用一个Quickrep就可以了,通过动态产生QRmemo,动态设置memo属性 然后编写一个循环 例如: for i:= 1 to 5 do begin QRmemo1:=tqrmemo.Create(self); QRmemo1.Parent:=form2.qrband2; if i=1 then begin QRmemo1.top:=x QRmemo1.left:=x QRmemo1.height:=x QRmemo1.width:=x QRmemo1。font.size:=x QRmemo1.font.name:= QRmemo1.font.style:= QRmemo1.font.color:= QRmemo1.lines.text:=你的内容 QRmemo1.autosize:=false; QRmemo1.autostretch:=true; form2.QuickRep1.Print; end; 至于坐标可以根据你的需要设置,你还可以配合QRlabel一起来完成 这里只说了第一页,其他页是类似的
你可以直接 add page
with QRCompositeReport1 do
begin
reports.Add(QuickReport2);
reports.Add(QuickReport3);
reports.Add(QuickReport4);
Preview;
end; 可是预览出来什么也没有,什么原因?如果单页预览,却没有问题。大虾们看看,给点建议
然后编写一个循环 例如:
for i:= 1 to 5 do
begin
QRmemo1:=tqrmemo.Create(self);
QRmemo1.Parent:=form2.qrband2;
if i=1 then begin
QRmemo1.top:=x
QRmemo1.left:=x
QRmemo1.height:=x
QRmemo1.width:=x
QRmemo1。font.size:=x
QRmemo1.font.name:=
QRmemo1.font.style:=
QRmemo1.font.color:=
QRmemo1.lines.text:=你的内容
QRmemo1.autosize:=false;
QRmemo1.autostretch:=true;
form2.QuickRep1.Print;
end;
至于坐标可以根据你的需要设置,你还可以配合QRlabel一起来完成
这里只说了第一页,其他页是类似的
你可以安装微软的Msn ,或者使用网易的泡泡.将[email protected] 加为好友.我总在线的.能你一起找到解决的方法!
with QRCompositeReport1.Reports do
begin
Add(QuickReport2); //封面
Add(QuickReport3); //内容
Add(QuickReport4); //封底
end;
在一个点击事件里面写:
QRCompositeReport.Preview;
就OK了。
当然封面一定要设计的占满一个A4的篇幅,这样内容才不会跑到封面上去。高兴,结贴!