发货单格式一定，是A4的一半，发运货物的数量不能确定，如何实现格式统一，注：不是套打-->>只有45分了，笑拿(45分)

  • 主题发起人 主题发起人 ooyoo
  • 开始时间 开始时间
用自定义纸张，不可以吗？
 
我不大明白你的意思
 
就是“发货单”的有固定格式了，发运的货物数量不确定，所以在固定的格式中，打印不固定的货物，如何实现，
如果格式不固定，或则可以套打，问题就好解决了吗。
 
简单：先按你的表格形式作好报表题头页角等 ，然后根据表格听大小定好内容的行数！
（格式不是固定）如五行！
在DetailBand是画出五行表格，每一行都加上一组相同的DBText（就是你打印的明细了）
在每一组的最后一个DBText的OnPrint事件中加上DetailTable.Next;最后一行的不设！！！
设DetailBand的DetailBand.ForceNewPage:=True;
注意：同一组的明细DBText应该按顺序建立
^^^^^^^^^^
你试试吧，如果不行留个EMail我发给你。
 
To:杜宝
My E_mail:ooyoo@163.net
我按你的做法试了，又有另外一个问题：如果记录少于5，那最后一个记录就会从复打印，
如何解决此问题，谢谢了
 
在杜兄的基础上，不使用dbtext,使用qrlable，在before print的时候给每个label的caption
赋值，没有的为''
不就OK了
 
to:wrf
不用那么麻烦。在QRDBText的OnPrint事件上处理一下就行了。
对不起，没说清楚，第一次回这个贴子的时候，我是按自己一个思路来作的，回完我试了一下，
确实有记录少于5个，确切的说是不是5 的整数倍时，最后一个记录会重复打印。But，想了一下，
搞定了！
在每行的第一个QrDBText的OnPrint事件上加上一个判断
begin
if DetailTabel.Eof then
Abort;//如果数据表到头则退出。
end;
to:ooyoo
现在我在家里，明天早上到公司发给你。
 
To:杜宝
非常的感谢你，期待你的邮件！！！
 
""在每行的第一个QrDBText的OnPrint事件上加上一个判断
begin
if DetailTabel.Eof then
Abort;//如果数据表到头则退出。
end;
"
这句好象也不行，已经测试过了！
 
用ReportBuilder很容易实现的。
自定义page的大小
在main的pagestyle中画好页的格式，在DatailBand中放个SubReport
在subreport的detailband中排列你的dbtext等
 
那，改用TField的GetText,再来。
 
To:杜宝
现在时间13：32，你的信我还没有收到，发了吗？
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
1K
DelphiTeacher的专栏
D
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部