基于EXCEL的发票打印系统(可编辑)

基于EXCEL的发票打印系统 E 基于EXC L的发票打印系统 许国1 吴光校2 (诸暨市教育局核算中心 诸暨311800)I (诸暨市里浦中学 诸暨311800)2 摘 要EXCEL电子表格在数据处理方面的功能是非常强大的，给我们的工作带来了方便，但要完成复杂的财务工作，如我们要 打印大量的开学收费票据的话，用常规的方法费时费力，并且容易出错，而我们运用EXCEL的VBA功能可以轻松地完成开学收费 票据的打印工作，提高了工作效率和工作质量。 关键词EXCEL 发票 打印系统 中图分类号 F239 文献标识码B 文章编号1010105558 Invoice BasedOnEXCEL PrintingSystem XuGu01Wu Guangxia02 of Education 311 (AccountingCenter，Bureau Zhuji 800)1 SeniorSchool 311 (Lipu High 800)2 Zhuji，Zhejiang AbstractEXCEL sheetfunctionsare andconvenientto in dateourworkAtthesametimeit spread powerful process isa for wasteoftimeand the EXCELto the fanaceial a energy regular work，for completecomplex example，printinglarge numberofthe ofschoolfeesatthe ofeach is tomakemistakeswhen receipts beginningterm，Besides，EXCELeasy functi帆of withthe VBA US andconvenienceinour dataNow，the EXCEL，whichefficiency deMing complex bring USalOtto the the ofschoolfees work，can help completeprintingreceipts EXCEL Keywords ReceiptsPrintingSystem 随着财政改革的深入，学校收费发票也进行了一系列的改 革，较早时期的用复写纸套写的一式三联发票，每填开一份发票 都要用蓝色复写纸进行复写，一直到前几年的带复写功能的一 式三联发票，免去了复写纸，工作效率又提高了，近年财政又对 发票印制进行改革，现行的发票是带复写功能的两边带孔的，这 使得学校收费发票用计算机打印成为可能，由于现阶段财政还 没有开发出相应的学校收费发票管理软件，因此学校还是用手 式方式开具发票。那么我们是否可用常用的EXCEL电子表格软 件来开发出发票打印系统呢?通过实践，我们用EXCEL的VBA 功能实现了学校收费发票的打印工作。 图2 一、制作发票打印模板 l、新建一个EXCEL工作簿，命名为“发票打印系统”，并重 命名“sheetl”为“缴费名单”，在“缴费名单”工作表中输入序号、 班级、姓名和收费项目等内容，完成后的内容见图l。 2、重命名“sheet2”为“发票打印”，在“发票打印”工作表中 输入相应的内容，完成后的内容见图2。 二、编写代码，实现批量打印 1、要能够使“缴费名单”工作表中对应信息自动取到“发票 打印”工作表中，需要利用“控件工具箱”在“发票打印”工作表 图1 的相应地方添加两个命令按钮，将其Caption属性修改为“全部 。50 办公自动化杂志 万方数据 打印”和“查询打印”，双击“全部打印”按钮，在其Click事件中 每打印50张收费发票就暂停一下，如继续按确定即可。 插入如下代码： 2、上述代码实现了全部人员打印的功能，但在实际操 PrivateSub CommandButtonlClick() 作中，由于计算机、打印机等原因，其中一个或几个人员没能打 ApphcationScreenUpdating=False印出来，需要单独打印，上述方法显然不妥，为了能够实现单独 Worksheets(”发票套打”)Select 打印，我们需要设置“查询打印”命令按钮，双击“查询打印”按 钮，在其Click事件中编写如下代码： Count=Worksheets(”缴费名单”)A65536End(xlUp)Row Forj=2ToCount PrivateSub CommandButton2_Click() With Worksheets(”缴费名单”) rel=InputBox(”请输入要打印人员的编号：”，”提示”) 2 Range(”A4”)=：Range(”A5”)=” False ApplicationScreenUpdating Range(”A6”)=。：Range(”F4”)= Worksheets(”发票套打”)Select Range(”F5”)=”：Range(”F6”)=。 If Range(”B3”)=Cells(j，2)Cells(j，3) rel ”Then IfCells(j，4)=AndCells(i，5)=Then For净2ToCount Range(”A4”)=Cells(1，6)：Range(”174”)=CeUs(j，6) ElseIfCells(j，4)=AndCells(j，6)=”Then IfLookup=Val(rel)Then With Range(”A4”)=Cells(1，5)：Range(”F4”)=Cells(j，5)Worksheets(”缴费名单”) ElseIfCells(j，5)=AndCells(j，6)=”Jnl晶 Range(1IA4”)=。：Range(”A5”)= Range(”A4”)=CeUs(1，4)：Range(”F4”)=Cells(j，4) Range(”A6”)=：Range(”F4”)=” ElselfCells(j，4)=AndCells(j，5) AndCells(j， Range(”F5”)=”：Range(”F6”)= 6) 。Then Range(”B3”)=Cells(j，2)Cells(j，3) Range(”A4”)=Cells(1，5)：Range(”F4”)=Cells(j，5)IfCells(j，4)=”AndCells(j，5)=”Then Range(”A5”)=Cells(1，6)：Range(”F5”)=Cells(j，6) ElseIfCells(j，5)=AndCells(j，4) AndCells(j， 6) Then Range(”A4”)=CeHs(1，4)：