用ExcelVBA实现物业收据的打印

1、用 Excel VBA 实现物业收据的打印当前，物业管理行业的收费名目繁多，收据格式五花八门， 没有通用的收据打印软件。部分物业公司还在采用手工填写方 式，劳神费时，容易出错；有的使用从网上下载的免费软件，感 觉又不能满足公司的特殊需要，用起来不顺手。面对这种状况， 如何利用现有应用软件，设计满足自身需要的物业收据打印系 统，是一个值得探讨的问题。1 需求分析各物业小区业主收费信息， 以一览表的形式分别存放在各个 工作表中，每个业主的数据形成一行记录，需要实现以下功能：可以按预定的格式，分别不同的物业小区，向前、向后逐个 浏览各业主的物业费用信息， 对显示的当前业主物业收据进行打 印，对指定范

2、围内的业主物业收据进行批量的、连续的打印。2 开发环境Microsoft Office Excel 2007 中文版。3 设计过程1) 新建一个 Excel2007 工作簿文档， 保存为启用宏的工作 簿“ Property.xlsm ”。2) 新建两个工作表， 表标签名称分别以各物业小区名称命 名，分别为“白鹤印象”、“蔚蓝天空”，用于存放两个物业小 区收费信息，表列内容包含房号、姓名、水电气数据、物业费、3）新建一个工作表，表标签名称为“收据打印”（如图2所示），用于浏览显示、打印输出预定格式物业收据。将工作表 上部的 B2：L11 单元格区域设置为打印区域， 下部的 B12：L13 单 元

3、格区域为打印控制区，其内容不打印输出。4）对“收据打印“工作表物业小区后边的 D4 单元格进行 数据有效性设置： 在允许下拉列表框中选择“序列”， 在来源下 面的文本框中输入“白鹤印象，蔚蓝天空”。5）对“收据打印”工作表的相关单元格设置公式：No. K3： =YEAR（TODA（Y ） &MONT（HTODAY（） （将 当前年月自动冠于收据编号前）L3： =$F$12 （将当前记录号自动作为收据编号）房号 G4： =OFFSET（INDIRECT（$D$4&！A4）， $F$12，） 姓名 J4：=OFFSE（T INDIRECT（D4&！ B4）， $F$12，） 水表上月读数 E6：=

4、OFFSE（TINDIREC（T D4&！C4），$F$12，） 电表上月读数 E7：=OFFSE（TINDIREC（T D4&！F4 ），$F$12，） 气表上月读数 E8：=OFFSE（TINDIREC（T D4&！I4 ），$F$12，） 水表本月读数 G6：=OFFSE（TINDIREC（T D4&！D4），$F$12，） 电表本月读数 G7：=OFFSE（TINDIREC（T D4&！G4），$F$12，） 气表本月读数 G8：=OFFSE（TINDIREC（T D4&！J4 ），$F$12，） 水实用数 I6= =G6-E6 电实用数 I7= =G7-E7气实用数 I8= =G8-

5、E8水单价 K6： =OFFSET（INDIRECT（D4&！E4），$F$12，） 电单价 K7： = OFFSE（T INDIRECT（D4&！H4），$F$12，） 气单价 K8： = =OFFSE（T INDIRECT（D4&！K4），$F$12，） 水费 L6： =ROUND（I6*K6 ，2）电费 L7： =ROUND（I7*K7 ，2）?夥？L8: =ROUN（I8*K8 , 2）物业费 E9： = OFFSET（ I ND I RECT（ D4&！ L4 ） ， $F$12， ） 其他费 I9:=OFFSE（T I NDI RECT（ D4&！ M4） ， $F$12 ， ）

6、物业费与其他费小计 L9: =E9+I9收据总金额（小写） L10:=SUM（L6:L9）收据总金额（大写） H10: =SUBSTITUT（E SUBSTITUT（ETEXT （TRUN（CFIXED（L10），0dbnum2 ；1%， 元整 ， ） ） ， 零角 ， IF （ ABS（ L10）7）在”收据打印”工作表中添加两个按钮控件，标题分别为“打印当前页”、“打印指定页”8）为“打印当前页”按钮指定宏，名称为PrintCurPage_click ，用 VBA编写以下代码：Sub PrintCurPage_Click （）n = Msg Box（ 确定打印当前业主收据吗？ ， vbOKCancel）If n = vbOK Then ActiveSheet.PrintOutEnd Sub9）为“打印指定页”按钮指定宏，名称为PrintRange_click ，用VBA编写以下代码：Sub PrintRang