怎樣實現兩頁(半張A4紙)的報表,列在一張A4紙中（QREPORT）(100分)

  • 主题发起人 主题发起人 tankdt
  • 开始时间 开始时间
T

tankdt

Unregistered / Unconfirmed
GUEST, unregistred user!
在一張A4紙中列印兩個單據，例:
.......出貨單
單據編號：01
內容1...
2...
3...
.
.
(不夠半頁，用空行，超過半頁,另起一表單 )
.......出貨單
單據編號：02
內容1...
2...
3...
.
.
頁1
是不是就用QRCompositeReport做，但是“不夠半頁，用空行，超過半頁,另起一表單”
这一点好象不容易做到
加空行还好办点，加个BAND，计算长度几行了，可是，超过了就不好办了，不会另起表单
希望不要用第三方的控件
 
qreport不是有分栏打印？
 
我也思考这个问题，只是程序不没有做到这步。
 
其实这个功能不需要做，部分打印机能直接支持这个功能，例如我用的Hp6l，
在打印机设置的选项中，选择打印机属性，在布局哪个页面中间有个每张纸打印页数的选择，
默认是1页，也就是原样打印，如果你选择2，那么就可以按照你的要求在A4纸左右并排打两页内容了。
我就用该功能经常把PDF文件打印到A4纸上，一页可以当2页用，很方便。
不过，不是所有的打印机都提供该功能选项，好象部分喷墨打印机，和针打不提供。
你检查下你的驱动程序，如果没有，再下载最新的驱动看看。
我有个软件就是利用这个功能，让客户在一页纸上打两页内容的。很方便，自己也不要写程序，只要客户设置下打印属性就可以了。
 
分栏打印指什么啊
软件怎么实现呢啊
 
分栏就是number of columns 1 改为 2
 
分栏好象和我问的问题无关啊
 
尝试使用QRCompositeReport试验一下。
在它的OnAddReports里面添加你的两个QuickReport
 
用QRCompositeReport吧，实现套打，把两张或是多张报表打在一页上。
在OnAddreports 事件里添加报表，如下:
with Form1.QRCompositeReport1.Reportsdo
begin
clear;
Add(Form2.QuickRep1);
Add(Form3.QuickRep1);
end;
 
楼上两位啊
我如果用QRCompositeReport，超过长度好象实现不了我的要求啊
 
不夠半頁，用空行，超過半頁,另起一表單”
那你就使用OnNeedData事件配合QRCompositeReport来实现吧，只能这样了。
 
你可以自定义纸张，纸张的高度为A4纸张的一半，可以实现！
 
OnNeedData事件怎么配合使用啊，能不能给出点代码啊
楼上的定义一半高度不行的，你没试过？
 
设置报表的Number of Columns =2，然后设置报表的高度稍小于A4的一半就可以了，因为可
能会有点误差的
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
IDE Expert
回复
0
查看
794
import
I
I
一个数列
回复
0
查看
842
import
I
I
在Delphi程序中动态设置ODBC数据源
回复
0
查看
728
import
I
后退
顶部