基于EXCEL的发票打印系统.pdf

《基于EXCEL的发票打印系统.pdf》由会员分享，可在线阅读，更多相关《基于EXCEL的发票打印系统.pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、基于E X CEL 的发票打印系统许国1吴光校2(诸暨市教育局核算中心诸暨3 1 1 8 0 0)I(诸暨市里浦中学诸暨3 1 1 8 0 0)2摘要E X C E L 电子表格在数据处理方面的功能是非常强大的，给我们的工作带来了方便，但要完成复杂的财务工作，如我们要打印大量的开学收费票据的话，用常规的方法费时费力，并且容易出错，而我们运用E X C E L 的V B A 功能可以轻松地完成开学收费票据的打印工作，提高了工作效率和工作质量。关键词E X C E L发票打印系统中图分类号F 2 3 9文献标识码B文章编号1 0 1 0 1 0 5 5 5 8I n v o i c eP r i

2、n t i n gS y s t e mB a s e dO nE X C E LX uG u 0 1W uG u a n g x i a 0 2(A c c o u n t i n gC e n t e r，B u r e a uo fE d u c a t i o nZ h u j i3 118 0 0)1(L i p uS e n i o rH i g hS c h o o lZ h u j i，Z h e j i a n g3 118 0 0)2A b s t r a c tE X C E Ls p r e a ds h e e tf u n c t i o n sa r ep o w

3、 e r f u la n dc o n v e n i e n tt op r o c e s sd a t ei no u rw o r k A tt h es a m et i m e i ti saw a s t eo f t i m ea n de n e r g yf o rt h er e g u l a rE X C E Lt oc o m p l e t et h ec o m p l e xf a n a c e i a lw o r k，f o re x a m p l e，p r i n t i n gal a r g en u m b e ro ft h er e c

4、 e i p t so fs c h o o lf e e sa tt h eb e g i n n i n go fe a c ht e r m，B e s i d e s，E X C E Li se a s yt om a k em i s t a k e sw h e nd e M i n gw i t ht h ec o m p l e xd a t a N o w，t h eV B Af u n c t i 帆o fE X C E L，w h i c hb r i n gU Se f f i c i e n c ya n dc o n v e n i e n c ei no u rw

5、 o r k，c a nh e l pU Sal O tt oc o m p l e t et h ep r i n t i n gt h er e c e i p t so fs c h o o lf e e s K e y w o r d sE X C E LR e c e i p t sP r i n t i n gS y s t e m随着财政改革的深入，学校收费发票也进行了一系列的改革，较早时期的用复写纸套写的一式三联发票，每填开一份发票都要用蓝色复写纸进行复写，一直到前几年的带复写功能的一式三联发票，免去了复写纸，工作效率又提高了，近年财政又对发票印制进行改革，现行的发票是带复写功

6、能的两边带孔的，这使得学校收费发票用计算机打印成为可能，由于现阶段财政还没有开发出相应的学校收费发票管理软件，因此学校还是用手式方式开具发票。那么我们是否可用常用的E X C E L 电子表格软件来开发出发票打印系统呢?通过实践，我们用E X C E L 的V B A功能实现了学校收费发票的打印工作。图1。5 0 办公自动化杂志图2一、制作发票打印模板l、新建一个E X C E L 工作簿，命名为“发票打印系统”，并重命名“s h e e t l”为“缴费名单”，在“缴费名单”工作表中输入序号、班级、姓名和收费项目等内容，完成后的内容见图l。2、重命名“s h e e t 2”为“发票打印”，

7、在“发票打印”工作表中输入相应的内容，完成后的内容见图2。二、编写代码，实现批量打印1、要能够使“缴费名单”工作表中对应信息自动取到“发票打印”工作表中，需要利用“控件工具箱”在“发票打印”工作表的相应地方添加两个命令按钮，将其C a p t i o n 属性修改为“全部万方数据打印”和“查询打印”，双击“全部打印”按钮，在其C l i c k 事件中插入如下代码：P r i v a t eS u bC o m m a n d B u t t o n l C l i c k()A p p h c a t i o n S c r e e n U p d a t i n g=F a l s eW

8、o r k s h e e t s(”发票套打”)S e l e c tC o u n t=W o r k s h e e t s(”缴费名单”)A 6 5 5 3 6 E n d(x l U p)R o wF o r j=2 T o C o u n tW i t hW o r k s h e e t s(”缴费名单”)R a n g e(”A 4”)=：R a n g e(”A 5”)=”R a n g e(”A 6”)=。：R a n g e(”F 4”)=R a n g e(”F 5”)=”：R a n g e(”F 6”)=。R a n g e(”B 3”)=C e l l s(j，2

9、)C e l l s(j，3)I f C e l l s(j，4)=A n d C e l l s(i，5)=T h e nR a n g e(”A 4”)=C e l l s(1，6)：R a n g e(”1 7 4”)=C e U s(j，6)E l s e I f C e l l s(j，4)=A n d C e l l s(j，6)=”T h e nR a n g e(”A 4”)=C e l l s(1，5)：R a n g e(”F 4”)=C e l l s(j，5)E l s e I f C e l l s(j，5)=A n d C e l l s(j，6)=”J n l 晶

10、R a n g e(”A 4”)=C e U s(1，4)：R a n g e(”F 4”)=C e l l s(j，4)E l s e l f C e l l s(j，4)=A n d C e l l s(j，5)A n d C e l l s(j，6)。T h e nR a n g e(”A 4”)=C e l l s(1，5)：R a n g e(”F 4”)=C e l l s(j，5)R a n g e(”A 5”)=C e l l s(1，6)：R a n g e(”F 5”)=C e l l s(j，6)E l s e I f C e l l s(j，5)=A n d C e l

11、 l s(j，4)A n d C e l l s(j，6)T h e nR a n g e(”A 4”)=C e H s(1，4)：R a n g e(”F 4”)=C e H s(j，4)R a n g e(”A 5”)=C e l l s(1，6)：R a n g e(”F 5”)=C e l l s(j，6)E l s e l f C e l L s(j 6)=”A n d C e l l s(j，4)A n d C e U s(j，5)T h e nR a n g e(”A 4”)=C e U s(1，4)：R a n g e(”1 7 4”)=C e l l s(j，4)R a n

12、g e(”A 5”)=C e l l s(1，5)：R a n g e(”F 5”)=C e i l s(j，5)E l s eR a n g e(”A 4”)=C e s(1，4)：R a n g e(”F 4”)=C e l l s(j，4)R a n g e(”A 5”)=C e U s(1，5)：R a n g e(”F 5”)=C e l l s(j，5)R a n g e(”A 6”)=C e s(1，6)：R a n g e(”F 6”)=C e l l s(j，6)E n d I fR a n g e(”B 7”)=N t o C(C e l l s(j，8)R a n g e

13、(”F 7”)=C e l l s(j，8)E n dW i t I l：W o r k s h e e t s(”发票套打”)P r i n t O u tc o p i e s：=l，c o l l a t e：=T r u ea=J 一1b=a M o d5 0=0I f b=T r u e T h e nM s g B o x”已打印了”j 一1”个人员的收费发票，为防止打印机过热，现暂停，如要继续，请按确定。”E n dI f：N e x tj：A p p l i c a t i o n S e r e e n U p d a t i n g=T r e eM s g B o x”一

14、共成功打印了”+S t r(C o u n t 一1)+”个人员的收费发票!正在打印中，请稍候”E n dS u b代码说明：以上代码是把“缴费名单”工作表中的数据对应取到“发票打印”工作表中，用循环语句打印出全部人员的收费发票，收费项目和收费标准会根据学生收费项目的多少自动取到发票打印工作表中的相应单元格中，另外为防止打印机过热，每打印5 0 张收费发票就暂停一下，如继续按确定即可。2、上述代码实现了全部人员打印的功能，但在实际操作中，由于计算机、打印机等原因，其中一个或几个人员没能打印出来，需要单独打印，上述方法显然不妥，为了能够实现单独打印，我们需要设置“查询打印”命令按钮，双击“查询打

15、印”按钮，在其C l i c k 事件中编写如下代码：P r i v a t eS u bC o m m a n d B u t t o n 2 _ C l i c k()r e l=I n p u t B o x(”请输入要打印人员的编号：”，”提示”)A p p l i c a t i o n S c r e e n U p d a t i n g2F a l s eW o r k s h e e t s(”发票套打”)S e l e c tC o u n t=W o r k s h e e t s(”缴费名单”)A 6 5 5 3 6 1 E n d(x l U p)R o wI fr

16、e l ”T h e nF o r 净2 T o C o u n tL o o k u p=W o r k s h e e t s(”缴费名单”)C e l l s(j，1)I f L o o k u p=V a l(r e l)T h e nW i t hW o r k s h e e t s(”缴费名单”)R a n g e(1 I A 4”)=。：R a n g e(”A 5”)=R a n g e(”A 6”)=：R a n g e(”F 4”)=”R a n g e(”F 5”)=”：R a n g e(”F 6”)=R a n g e(”B 3”)=C e l l s(j，2)C

17、e l l s(j，3)I f C e l l s(j，4)=”A n d C e l l s(j，5)=”T h e nR a n g e(”A 4”)=C e l l s(1，6)：R a n g e(”F 4”)=C e l l s(j，6)E l s e l f C e l l s(j，4)=A n d C e l l s(j，6)=T h e nR a n g e(”A 4”)=C e U s(1，5)：R a n g e(”F 4”)=C e l l s(j，5)E l s e i f C e l l s(j，5)=”A n d C e l l s(j，6)=”T h e nR a

18、 n g e(”A 4”)=C e l l s(1，4)：R a n g e(”F 4”)=C e l l s(j，4)E l s e I f C e l l s(j，4)=”A n d C e l l s(j，5)A n d C e l l s(j，6)T h e nR a n g e(”A 4”)=C e l l s(1，5)：R a n g e(”F 4”)=C e l l s(j，5)R a n g e(”A 5”)=C e l l s(1，6)：R a n g e(”F 5”)=C e l l s(j，6)E l s e l f C e H s(j，5)=”A n d C e l l

19、 s(j，4)”A n d C e l l s(j，6)T h e nR a n g e(”A 4”)=C e l l s(1，4)：R a n g e(”F 4”)=C e l l s(j，4)R a n g e(”A 5”)=C e l l s(1，6)：R a n g e(”F 5”)=C e l l s(j，6)E l s e i f C e l l s(j，6)=”A n d C e l l s(j，4)A n d C e l l s(j，5)T h e nR a n g e(”A 4”)=C e l l s(1，4)：R a n g e(”F 4”)=C e l l s(j，4)R

20、 a n g e(”A 5”)=C e H s(1，5)：R a n g e(”F 5”)-C e I l s(j，5)E l s eR a n g e(”A 4”)=C e l l s(1，4)：R a n g e(”F 4”)=C e l l s(j，4)R a n g e(”A 5”)=C e l l s(1，5)：R a n g e(”F 5”)=C e l l s(j，5)R a n g e(”A 6”)=C e l l s(1，6)：R a n g e(”F 6”)=C e l l s(j，6)E n d R a n g e(”B 7”)=N t o C(C e l l s(j，8

21、)：R a n g e(“F 7”)=C e l l s(j，8)E n d W i t l lW o r k s h e e t s(”发票套打”)P r i n t P r e v i e wE x i t S u bE n dI f：N e x t jM s g B o x”没有找到编号为”+r e J+”的人员，请确认后重新输入!”E l s e办公自动化杂志5 l 万方数据匠k 蔓鼍：丽两-l 墨陬M s g B o x”你输入的编号为空，请确认后重新输入!”E n dI f：A p p l i c a t i o n S c r e e n U p d a t i n g=T r

22、u eE n d S u b代码说明：以上代码中先出现一个序号输入框，输入需要单独打印人员的序号，然后把“缴费名单”中此序号人员的信息对应取到“发票打印”工作表中，并打印出此序号人员的收费发票，如果输入框中未输入序号，或者输入的序号与“缴费名单”中的不相符，就不打印。3、在上述代码中我们使用了一个小写金额转换为大写金额的自定义函数N t o C，由于此函数是自定义的，我们要在模块中进行自定义，插入一个模块(模块1)，在“模块1”中输入如下代码：F u n c t i o nN t o C(nA sC u r r e n c y)A sS t r i n g na sC u r r e n c

23、yC o n s tc N u mA sS t r i n g=”零壹贰叁肆伍陆柒捌玖一万仟佰图3拾亿仟佰拾万仟佰拾元角分”到“属性”选项卡，去掉“打印对象”复选框的选中状态(如图3)。C o n s tc C h a A s S t r i n g=”零仟零佰零拾零零零零零亿零万零至此，“发票打印”工作表设计完成，如要打印某学生的收费元亿万零角零分零整一零零零零零亿万元亿零整整”发票，只要按“查询打印”命令按钮，如要打印全部学生的收费D i ms N u mA sS t r i n g发票，只要按“全部打印”命令按钮，开学开发票的事就交给打D i m i A s k n g印机了。N t o

24、 C=参考文献s N u m i T r i m(S t r(I n t(n41 0 0)f 1 1 罗刚君E X C E L V B A 程序开发自学宝典叨北京：电子工F o ri-1T oL e n(s N u m)逐位转换业出版社，2 0 0 9 N t o C=N t o C+M i d(c N u m，(M i d(s N u m，i，1)+l，1)+M i d作者简介(c N u m，2 6 一L e n(s N u m)+i，1)许国(1 9 7 0)男浙江省诸暨市人，诸暨市教育局核算中心N e x t统管会计、中国管理科学研究院学术委员会特约研究员，中共党F o r i-0 T

25、 o1 1 去掉多余的零员。2 0 0 0 年2 月被评为绍兴市级教育系统先进财会工作者，本N t o C=R e p l a c e(N t o C，M i d(c C h a，i+2+1，2)，M i d(c C h a，i科学历，会计师职称。在诸暨市教育局核算中心任统管会计，兼+2 6，1)任系统管理员。业余时日J 用V B 开发了 X G 人事工资管理系统N e x tV 3 0，在全市推广使用，取得了较好的效果，5 0 余篇论文在国E n dF u n c t i o n家级、省级刊物上发表。输入完成后，关闭“V i s u a l B a s i c 编辑器”窗口。吴光校(1 9

26、7 0 一)男浙江省诸暨市人，诸暨市里浦中学会4、“全部打印”和“查询打印”两个命令按钮创建完成后的计。本科学历，会计师职称。在诸暨市里浦中学任主办会计。效果如图2 所示，另外，为使打印的收费发票f：不出现添加的在计算机方面有一定的造诣，多篇论文在国家级、省级刊物命令按钮，应分别右击两按钮，选择“设置控件格式”命令，切换上发表。(上接第1 7 页1想，我们交换一下，一人就有两个思想”。不言而喻，2 1 世纪的今天，是合作共赢为主题的时代。全球化、信息化、网络化确实加剧了竞争，但同时也促进r 合作。在不同的职业中，每个人都处在各种各样的团队中，这就要求我们学会尊重人、理解人、团结人、欣赏人，这既

27、是一种品德、一种境界，也是一种责任。就新闻工作而言，它是一个系统1 二程，一组(条)新闻的发布，需要采(拍)、编、播等诸多创造性的劳动集合而成，其中一个环节出r 问题，这组(条)新闻就不能发表，或者出错。因此，我们在完成每档、每条新闻过程中，采、编、播及各岗位的工作人员，只有互相支持不拆台，互相尊重不发难，互相配合不推诿，才能使新闻作品完成进而得到社会认可。五、感恩心态有位哲学家说过，世界上最大的悲剧或不幸，就是一个人大言不惭地说，没有人给自己任何东西。我以为，感恩是一种美好的感情，是一种健康的心态，是一种良知，也是一种动力。人有了感恩之情，生命就会得到滋润，生活就会产生快乐，工作就会保5 2

28、。办公自动化杂志持激情。然而，在新闻队伍中，总有少数人整日叫苦连天，心理不平衡，抱怨自己付出的比别人多，能力比别人强而位置没有别人显，职称没有别人高，待遇没有别人好等等。但他没有想一想，是党和政府给了我们工作的平台，是改革开放给了我们开阔眼界和富足的生活，不能端着碗吃肉，放下筷子骂娘。新闻T 作者是创造精神产品的人，只有做一个知恩图报的人，才能创造出高尚的精神产品来。总之，新闻工作者具备以上五种心态，会使我们生活态度和工作态度更积极，高屋建瓴地看问题、干事业，从而得到更多的成功和快乐。矽作者简介冯瑁从事新闻工作近十五年，曾经有数十篇新闻作品获得困家、省、市级新闻奖项。无论是从事编辑还是记者工作她始终恪守新闻从业人员的职业道德，爱岗敬业、全心全意为读者服务。在新闻界和读者心中享有良好的信誉和口碑。万方数据基于EXCEL的发票打印系统基于EXCEL的发票打印系统作者：许国，吴光校，Xu Guo，Wu Guangxiao作者单位：许国,Xu Guo(诸暨市教育局核算中心,诸暨,311800)，吴光校,Wu Guangxiao(诸暨市里浦中学,诸暨,311800)刊名：办公自动化（综合版）英文刊名：OFFICE AUTOMATION年，卷(期)：2011(1)参考文献(1条)参考文献(1条)1.罗刚君 EXCEL VBA程序开发自学宝典 2009 本文链接：http:/