急!请问这样的证件套打怎么做?(100分)

  • 主题发起人 sweetbriar
  • 开始时间
S

sweetbriar

Unregistered / Unconfirmed
GUEST, unregistred user!
最近单位要求写一个证件程序,要打印以下这样的证件,我是个DELPHI的初学者,请问应该
怎么样做?谁能给我一个类似的源码?
企业名称 XXXXXX
XXX许可证 负责人姓名 XXX
(副本) 经营地址 XXXXX
(XXX)特零字第 XXX 号 主管部门 XXX
经济类型 XXX
核定品种 XXX
发证机关: XXXXXX
发证时间: XX 年 XX 月 XX 日
————————————————————————————————————>
其中 XXX 是要套打的具体内容。下面的箭头是打印的方向。我是弄了很久都没有弄出来,
只能求助各位了,救救我吧!
 
用fastreport報表做
 
最简单!!!
你就用Form上面方一些Label,直接Print这个Form就好了,至于要套打,就将不打印出来的
东东的Visible为False就好了!!
 
TO jesse.zhou:
用fastreport怎么样做?有没有源代码?(不要笑我,我是个菜鸟啦!)
TO zxbyh
需要填充的内容怎么定位呢?纸张问题怎么定义?我的纸张是260mm*185mm的。
 
要填充的内容用Label做成透明的,
还有800*600,打出来就是A4宽,你自己换算一下.
满意吧????
我作超市管理系统,在商品的标签问题就是这样处理的!!!
满意?????
 
满意吗???
实现了吗???
 
zxbyh
这样也是打印,笑死我了
 
用QUICKREP中的QRLABEL
就可以做
还可以设置成在程序中能调节各个打印内容的位置
 
用execel做套打
 
用Printer.Canvas.TextOut(x,y, '输出文本') 可实现精确定位打印.我开发的发货单管理
系统就是用这个,效果非常好.不过打印前要先检测打印机分辩率、可打印区域等,计算具体
的文本输出位置,以适应打印机不同的分辩率。具体可检索以前讨论。
 
只能用Printer.Canvas.TextOut(x,y, '输出文本')
 
多人已接受答案。
 
顶部