万方数据基于EXCL的发票打印系统EWu许国1吴光校2(诸暨市教育局核算中心(诸暨市里浦中学一、制作发票打印模板二、编写代码，实现批量打印诸暨311800)I诸暨311800)2InvoicePrintingSystemBasedOnEXCELXu(AccountingZhuji800)1(LipuZhuji，Zhejiang800)2Gu01Guangxia02functi帆ofand办公自动化杂志摘要EXCEL电子表格在数据处理方面的功能是非常强大的，给我们的工作带来了方便，但要完成复杂的财务工作，如我们要打印大量的开学收费票据的话，用常规的方法费时费力，并且容易出错，而我们运用EXCEL的VBA功能可以轻松地完成开学收费票据的打印工作，提高了工作效率和工作质量。关键词EXCEL发票打印系统中图分类号Center，BureauofEducation311SeniorHighSchoolAbstracttheterm．，Besides，EXCELdeMingdata．Now，thebringschoolKeywords随着财政改革的深入，学校收费发票也进行了一系列的改革，较早时期的用复写纸套写的一式三联发票，每填开一份发票都要用蓝色复写纸进行复写，一直到前几年的带复写功能的一式三联发票，免去了复写纸，工作效率又提高了，近年财政又对发票印制进行改革，现行的发票是带复写功能的两边带孔的，这使得学校收费发票用计算机打印成为可能，由于现阶段财政还没有开发出相应的学校收费发票管理软件，因此学校还是用手式方式开具发票。那么我们是否可用常用的EXCEL电子表格软件来开发出发票打印系统呢?通过实践，我们用EXCEL的VBA功能实现了学校收费发票的打印工作。l、新建一个EXCEL工作簿，命名为“发票打印系统”，并重命名“sheetl”为“缴费名单”，在“缴费名单”工作表中输入序号、班级、姓名和收费项目等内容，完成后的内容见图l。2、重命名“sheet2”为“发票打印”，在“发票打印”工作表中输入相应的内容，完成后的内容见图2。1、要能够使“缴费名单”工作表中对应信息自动取到“发票打印”工作表中，需要利用“控件工具箱”在“发票打印”工作表的相应地方添加两个命令按钮，将其Caption属性修改为“全部文献标识码B文章编号101010—5558spreadsheetfunctionspowerfulconvenientdateinwork．Atsametime．itisoftimeenergyforregularcompletecomplexfanaceialwork，forexample，printinglargenumberreceiptsfeesbeginningeacheasymakemistakeswhenwithVBAEXCEL，whichefficiencyconveniencework，canhelplOtprintingfees．Receipts图1图2F239toprocesswasteat。50‘areouraUS万方数据ElseIf．Cells(j，5)=⋯’And．Cells(j，4)<>⋯’And．Cells(j，Elself．CelLs(j．6)=””And．Cells(j，4)<>⋯’And．CeUs(j，Ifb=TrueThenFor净2ToCountIfLookup=Val(rel)ThenIf．Cells(j，4)=””And．Cells(j，5)=””ThenElself．Cells(j，4)=⋯’And．Cells(j，6)=⋯’ThenElseif．Cells(j，5)=””And．Cells(j，6)=””ThenElseIf．Cells(j，4)=””And．Cells(j，5)<>⋯’And．Cells(j，Elseif．Cells(j，6)=””And．Cells(j，4)<>⋯’And．Cells(j，Range(”A5”)=．CeHs(1，5)：Range(”F5”)-．CeIls(j，5)Range(”A6”)=．Cells(1，6)：Range(”F6”)=．Cells(j，6)办公自动化杂志打印”和“查询打印”，双击“全部打印”按钮，在其Click事件中插入如下代码：CommandButtonl—Click()Worksheets(”发票套打”)．SelectCount=Worksheets(”缴费名单”)．[A65536]．End(xlUp)．RowForj=2ToCountWorksheets(”缴费名单”)Range(”A4”)=⋯’：Range(”A5”)=””Range(”A6”)=⋯。：Range(”F4”)=⋯’Range(”B3”)=．Cells(j，2)＆