凭证套打解决方案.docVIP

凭证套打解决方案凭证套打解决方案作为财会人员，日常工作中经常要填写会计凭证，对于业务量大的单位来讲，如果采用手工作业，这项工作将占用财会人员大量时间，而且也容易出错。但如能利用计算机进行凭证套打，凭证填写的工作量将大大下降，也不容易出错。这里提出一套凭证套打方案，希望能对其他会计人员有所帮助。一、软件及硬件准备软件：Microsoft?Excel、ACDSEE?4.0?POWERPACK（或其他图像编辑工具）硬件：针式打印机、A4幅面扫描仪、普通彩色垫板（如无彩色垫板，可在word中新建一空白文档，将其背景色设为纯黑色，用喷墨或激光打印机打印一张空白页即可代替垫板）其中A4幅面扫描仪和ACDSEE?4.0?POWERPACK（或其他图像编辑工具）是为了取得凭证模板而需要的专门工具。二、凭证模板的制作直接用扫描仪默认设置扫描出来的凭证往往和实际凭证的大小相差太大，不能直接用作模板。这里以中国人民银行进帐单为例，说明如何制作与实际凭证大小相一致的模板，其他凭证模板的取得与此类似。将凭证放入扫描仪，最好在凭证背面放上色差较大的普通彩色垫板，以便于将来进行图象编辑。将扫描仪的扫描模式设为“杂志类”、“彩色24位”，分辨率选择自定义，设为94~98DPI（视扫描仪型号不同而有所变化，笔者所用清华紫光扫描仪设为96?DPI）。具体设置如图一：?图一：扫描设置设置完毕后进行扫描。取得凭证图象。随后将取得的图象导入ACDSEE?4.0?POWERPACK中的编辑器中进行编辑。扫描所得图象中凭证与背景有强烈色差，非常利于剪裁。利用编辑器直接将凭证剪裁出来，另存为新文件。如图二：?图二：在ACDSEE?4.0?POWERPACK编辑器中进行图象剪裁由于扫描仪扫描出来的文件通常都是BMP或TFT格式的，通常还要进行格式转换，将其转换为jpg格式以减少文件体积。利用ACDSEE?4.0?POWERPACK提供的格式转换功能很容易做到这点。最后获得的图象文件就是我们所需要的凭证模板。如图三：?图三：已经制作好的凭证模板二、凭证套打的实现1、在Excel中划定网格，以便实现套打。打开Microsoft?Excel，依次在主菜单上选择：格式—工作表—背景，将我们刚制作好的凭证模板作为背景插入Excel表，随后根据凭证模板调整单元格，务必使凭证模板上每个需要套打的位置都有单元格与之对应，这步是相当关键的一步。调整好后留下凭证模板下空白所在的行作为辅助行，选中其他不需要的行，依次选择：格式—行—隐藏，将这些行隐藏。最后的成品如图四（实际应用过程中Excel中不能出现示图中的表格线，这里为了说明问题，设置了黑色网线，请在实际操作中注意）：图四：在Excel中划定网格，以便实现套打2、在相应单元格内设置公式，实现以下项目的自动生成：年、月、日：凭证大都是当日打印，采用以下公式可以实现直接取得当前日期而不必手工输入，当然，前提是保证系统日期与实际日期完全一致：年（F4单元格）：普通数字方式为“=year(today())”；用于支票打印汉字大写方式为“=TEXT(MID(YEAR(TODAY()),1,1),[DBNum2]G/通用格式)TEXT(MID(YEAR(TODAY()),2,1),[DBNum2]G/通用格式)TEXT(MID(YEAR(TODAY()),3,1),[DBNum2]G/通用格式)TEXT(MID(YEAR(TODAY()),4,1),[DBNum2]G/通用格式)”月（I4单元格）：普通数字方式为“=month(today())”；用于支票打印汉字大写方式为：“=IF(OR(MONTH(TODAY())3,MOD(MONTH(TODAY()),10)=0),零,)TEXT(MONTH(TODAY()),[DBNum2]G/通用格式)”日（K4单元格）：普通数字方式为“=day(today())”；用于支票打印汉字大写方式为：“=IF(OR(DAY(TODAY())11,DAY(TODAY())=20,DAY(TODAY())=30),零,)TEXT(DAY(TODAY()),[DBNum2]G/通用格式)”注意：实际公式填列的单元格要视实际划好的网格而定，不一定就是笔者所列的单元格。所输公式均不包含汉字全角引号。为使凭证套打整齐美观，请将输入公式的单元格设为“缩小字体填充”。（以下同）。人民币大写的自动生成。这里我们利用加载宏来实现这个功能。另新建一个Excel工作簿，在主菜单中依次选定：工具—宏—VISUAL?BASIC?编辑器，进入VISUAL?BASIC?编辑器界面。在工程窗口中选取VBAProject?（BOOK1），点击右键，选择“插入”?—模块，插入一个新模块。然后