当打印的内容不够填满一张纸的时候,我想把数据下面的表格打印出来,怎么办呢,就是说,我现在是这样做的,在 DetailBand 里面放了 QRShap 和 QRDBText,然后把表格和数据一起打印出来,但是,如果数据不能打印满一张纸,那么不可能表格继续打印,就是下面是空的了,我想把表格打满一张纸,那位大虾帮助解决一下,不明白的,我继续解释,在线等待。。
解决方案 »
- 编辑器:请问有没有直接将字符转换为16进制的函数可用(WIN32),可否举例呢
- 求助,在考勤系统中一般要月结要包括那些功能啊?谢谢!
- 请问查询一个表中所有的列名,用SQL写如何写,急
- 如何调用windows中的'确认文件替换'对话框
- 十万火急!!!如何实现异地的两个局域网通过"猫"或者INTERNET分时传输数据
- delphi 多线程网页采集退出出错 求助
- cxSpreadsheetbook的使用
- 有什么安装程序制作软件,可以自动配置BDE(建立数据连接的别名,复制数据库到某一目录等),请高手推荐一个好的软件吧
- 扫描的问题?
- 大虾留步---为什么在Delphi5中使用dsgnintf单元总提示:File not found 'dsgnintf.dcu'?(全部分数奉上)
- 请教Delphi6认证考试经验! (高分回报, 不够再给)
- 为什么这段数据库备份代码执行不正常?
inc(i);//i是一個全局變量
//qr不要設置dataset(即為空),BeforePrin裡面dataset.first;//設置為第一記錄
//在onneeddata裡面,
//因為以前搞過,都過了比較久了,你試試看看行不行
if not ADOQuery1.Eof then
begin
QRLabel2.Caption:=ADOQuery1.Fields[1].AsString;
QRLabel3.Caption:=ADOQuery1.FieldByName('SL').AsString;//+ADOQuery1.FieldByName('DW').AsString;
ADOQuery1.Next; if i<=20 then
MoreData:=true
else
begin
QuickRep1.NewColumn;
i:=0;
MoreData:=true;
end;
end
else
begin
QRLabel2.Caption:='';
QRLabel3.CaptioN:=''; if i=20 then
MoreData:=false;
end;