[原创]【中信实业银行票据打印】2005版更新于10-2

金刚经 · 发表于 2005-9-20 19:07

前两天公司财务到银行办理业务，由于日期填写有误，造成了不必要的麻烦，于是找到了我。一鼓作气，在原来《农行支票打印2003》的版本上进行修改，制作了这个小文件。中信银行的票据格式全国应该是统一的吧！大家可以细心比较一下，明显【电汇凭证】的结构优于【支票】，我的时间也比较紧，没有进行深加工。有用的朋友可以拿去用，有问题可以在论坛上提出来，代码一般都有注释，比较简单。整个文件架构的思路也不复杂，给大家简单说明一下吧： 1.根据实际票据结构通过控制单元格合并，基本数据位置调整到位，进行模拟数据打印。 2.使用绘图工具绘制票据边框以及不需要打印的文字，并将属性设置为不打印。 3.工作表数据计算基本采用【自定义名称＋函数】来处理，控件与工作表数据交互使用VBA代码实现。 4.打印完成后数据追加到相应记录，本来想添加历史记录汇总、筛选等功能，但是我担心越陷越深…[我的弱点] 5.如果你的计算机上安装了几台打印机，可以在我注释掉的代码里设置本文档打印所选择的默认票据打印机名称。 6.本文档运行环境是Excel2003，其它版本显示会有问题；为了操作方便，工作表进行了保护，密码为空。附言：财务当然很高兴，但是看你这么能干，又有新任务来了，说什么干脆凭证录入、月底汇总、财务数据分析等等... 真是苦不堪言啊，奉劝大家，工作要适当掌握节奏啊，我哪能开发一个财务系统呢？￥％@#％@！@ 金刚经 2005-9-20

PltjXZBy.rar (58.33 KB, 下载次数: 509)

[此贴子已经被作者于2005-10-2 18:01:31编辑过]

york888 · 发表于 2005-9-21 07:27

不錯,做得比較專業! 收藏!

清风_ll · 发表于 2005-9-21 12:23

做得真是不错,把日期改用日期控件可能会更方便些

金钢经版主是前辈了,佩服,献花一朵![em17][em23]

yyxxdd · 发表于 2005-9-21 18:55

谢谢楼主

6177000 · 发表于 2005-9-23 01:49

打印不出来??请金刚大人指教??

gvntw · 发表于 2005-9-26 21:41

以下是引用金刚经在2005-9-20 19:07:41的发言： 附言：财务当然很高兴，但是看你这么能干，又有新任务来了，说什么干脆凭证录入、月底汇总、财务数据分析等等... 真是苦不堪言啊，奉劝大家，工作要适当掌握节奏啊，我哪能开发一个财务系统呢？￥％@#％@！@ 金刚经 2005-9-20

呵呵，中国一大怪，什么都不会的最好，什么也不用干，会的干死，不会的人坐死。

dy_jys · 发表于 2005-9-27 11:11

为什么出现错误(.Range("F5") = Year(Date) - 2004 提示编译错误，找不道工程和库。）

[此贴子已经被作者于2005-9-27 11:20:27编辑过]

mmmmmzxn · 发表于 2005-9-28 17:10

老兄的好东西就是漂亮,多谢了,永远支持你

chenyu · 发表于 2005-9-28 19:52

下载学习学习，谢了。

金刚经 · 发表于 2005-10-2 18:03

找不到工程库文件的问题已经修正[采用直接引用VBA.Date函数]，请大家多提意见！

[此贴子已经被作者于2005-10-2 18:04:11编辑过]

		自动登录	找回密码
密码			免费注册

[原创]【中信实业银行票据打印】2005版 更新于10-2

[原创]【中信实业银行票据打印】2005版更新于10-2