用Excel轻松实现财务凭证封面套打

1、用 Excel 轻松实现财务凭证封面套打摘要本文利用Excel的VBA功能配合相关控件工具 箱实现对财务凭证的封面进行套打操作，能方便快速地打印 出作凭证封面。关键词 凭证封面 套打 Excel VBA、八 、-前言我院财务上的凭证封面一直以来都是用手工号码印章 的方法来处理的，虽然完成的效果很好，但是这种方法处理 起来却费时费力。有没有更好的简洁快速的方法来实现财务 凭证封面的套打功能呢？经过认真的研究，决定采用 Excel 的VBA功能配合相关控件工具箱来处理该问题。一、方法简介扫描凭证封面原件形成电子图片文档，在Excel中利用扫描得到的图片，在封面需要填写的位置利用VBA的相关功能实现

2、相应内容的输入填写，从而实现对凭证封面的快速编 辑及打印。、实现步骤（一）准备图形：用扫描仪对凭证封面原件扫描并用图形工具处理多余空白部分后保存成扩展名为JPG格式的图片（如凭证 .JPG）。（二）插入图形：新建一个电子表格，工作薄名：记账凭证套打.xls,工作表名：凭证套打，打开菜单“插入-图片 -来自文件”，在弹出的对话框中选取扫描所得的图片凭 证.JPG即可在凭证套打表中看到该图片，双击图片在“设 置图片格式-大小”中按套打的凭证封面原样张大小设设置 好高度和宽度（如图片处理） 。（三）添加工具栏： 点击菜单栏 “视图-工具栏” 选“控 件工具箱”及“ Visual Basic,如图1所

3、示。图1控件工具箱及Visual Basic工具（四）设计控件属性：在控件工具箱选设计模式，在凭证需要填写的地方分别插入标签控件，在空白的区域分别 插入标签控件、文本框控件、组合框控件及其他控件中的日期选取控件（Microsoft Date and Time Picker Contorl 6.0 （SP4）。 如图 3 所示。在控件上右击后在弹出的菜单上选择属性，将各控件的 名称改为如图 3 所示名称（非图片区的说明性的标签控件名 称不变），须调整的控件其他属性设计如下：标签控件：BackStyle 为 0-frmBackStyleTra叩arent;BoardStyle 为 0-frmBoa

4、rdStyleNone ； TextAlign 为2-frmTextAlignCenter; Font(字体)根据需要调整。文本框控件：TextAlign 为 2-frmTextAlignCenter; Font(字 体)根据需要调整。(五) 添加代码：打开Visual Basic工具栏中的 Visual Basic编辑器，添加代 码如下：Sheet1(凭证套打)中代码：Private Sub cbo 保管 _Change()Me.lbl 保管 .Caption = Me.cbo 保管 .TextEnd SubPrivate Sub cbo 保管 _Click()Me.lbl 保管 .Capt

5、ion = Me.cbo 保管 .TextEnd Sub图 2 凭证封面套打设置界面及控件名称Private Sub cbo 复核 _Change()Me.lbl 复核.Caption = Me.cbo 复核.TextEnd SubPrivate Sub cbo 复核 _Click()Me.lbl 复核.Caption = Me.cbo 复核.TextEnd SubPrivate Sub cbo 装订 _Change()Me.lbl 装订 .Caption = Me.cbo 装订 .TextEnd SubPrivate Sub cbo 装订 _Click()Me.lbl 装订 .Caption

6、 = Me.cbo 装订 .TextEnd SubPrivate Sub DTPickerStart_CloseUp()= Format(DTPickerStart.Value，” yyyy”)= Format(DTPickerStart.Value ， mm”)= Format(DTPickerStart.Value，“ dd”) End SubPrivate Sub DTPickerEnd_CloseUp()= Format(DTPickerEnd.Value， “ yy”)= Format(DTPickerEnd.Value ， mm”)= Format(DTPickerEnd.Valu

7、e， “ dd”) 日期错误提醒If DTPEnd.Value DTPBegin.Value Then MsgBox凭证截止vbCritical +日期不能小于凭证起始日期，请重设！ vbOKOnly， 凭证封面套打 End SubPrivate Sub txt 册数编号 _Change()Me.lbl 册数编号 .Caption = txt 册数编号 .TextEnd SubPrivate Sub txt 册数 _Change()Me.lbl 册数 .Caption = txt 册数 .TextEnd SubPrivate Sub txt 附件张数 _Change()Me.lbl 附件张数

8、.Caption = txt 附件张数 .TextEnd SubPrivate Sub txt 凭证张数 _Change()Me.lbl 凭证张数 .Caption = txt 凭证张数 .TextEnd SubPrivate Sub txt 起讫号 _Change()Me.lbl 起讫号 .Caption = txt 起讫号 .TextEnd SubPrivate Sub txt 总册数 _Change()Me.lbl 总册数 .Caption = txt 总册数 .TextEnd Sub ThisWorkBook 中代码：Private Sub Workbook_Open() 可根据需要添

9、加更多人员供选择Sheet1.cbo 装订 .AddItem 张三 Sheet1.cbo 复核 .AddItem 李四 Sheet1.cbo 保管 .AddItem 王五 Ibl单位.Caption= xxx人民医院”End Sub（六）设计对象属性：将所有对象的“设置控件格式” 中“属性”选项卡上，对象位置选择“大小、位置均固定” （目的是防止对象随单元格大小改变而改变）。将空白部分对象和和凭证封面图片的“设置控件格式”中“属性”选项卡 上“打印对象（P）”去掉 ”。（七）保护工作表：选择菜单“工具-保护-保护工作 表”，在弹出的对话框中输入密码，确定即可。退出设计模 式并关闭 Visual

10、 Basic 工具栏，保存工作表。（八）宏安全性处理： 选择菜单 “工具-宏-安全性” ， 在“安全级”选项卡中选择“低”或“中” ，保证 Excel 启动 时能运行宏。（九）打印设置并输入内容：在系统开始菜单中选“控制面板-打印机和传真-服务器属性” ，创建新格式“凭证 封面”，大小要设成与实际纸张大小一致，在Excel中页面设置中页面新建成的“凭证封面” ，页边距设到最小。在空白部分文本框控件、组合框控件及日期选取控件中选择或输入相关内容后，选择菜单“文件-打印”，打印出凭证封面即可注意：因打印页边距不可能到边，所以在实际使用中会 出现实际打印位置不对位现象，出现这种情况时，只需对控 件作整体（为防止移动时改变相对位置，最好将图片区域的 控件全部选中后组合成一个整体）的上下及左右移动，直到 打印的效果满意