自动生成打印工资条模版

序号粮期部门姓名出勤天数月薪应发基本工资加班工资岗位补全勤奖金伙食补通信补迟到漏卡预支款扣水电费其他扣款迟到扣款个人所得税未打卡社保应发工资银行手续费实发工资备注签名19月生产部张一2320302030185114.502100.051.002099.0529月生产部李四22203020300655.301374.701.001373.7039月生产部王五2420302030369114.502284.591.002283.5949月生产部刘六22203020300114.501915.501.001914.5059月生产部张二21203019380114.501823.231.001822.2369月生产部李三22203020300114.501915.501.001914.5079月生产部王二22203020300114.501915.501.001914.5089月生产部刘五22203020300114.501915.501.001914.5099月生产部赵钱22203020300114.501915.501.001914.50109月生产部孙李2520302030554114.502469.141.002468.14119月生产部叶大22203020300114.501915.501.001914.50129月生产部刘三2220302030043.13114.501872.371.001871.37139月生产部王钱252030203055415.83114.502453.301.002452.30149月生产部王文22203020300114.501915.501.001914.50159月生产部李林2420302030369114.502284.591.002283.59169月生产部张珍22203020300114.501915.501.001914.50179月生产部李立232030203018515.83114.502084.211.002083.21189月生产部余新22203020300114.501915.501.001914.50407.0036540.0036447.732214.550.000.000.000.000.000.000.0074.800.000.000.000.002601.8035985.6818.0035967.68交流QQ:35044479XX公司2015年9月应发工资表合计序号姓名出勤天数月薪应发基本工资加班工资岗位补贴全勤奖金伙食补助通信补款迟到漏卡预支款扣水电费其他扣款迟到扣款个人所得税未打卡社保应发工资银行手实发工资签名12刘三2220302030043.13114.501872.371.001871.37序号姓名出勤天数月薪应发基本工资加班工资岗位补贴全勤奖金伙食补助通信补款迟到漏卡预支款扣水电费其他扣款迟到扣款个人所得税未打卡社保应发工资银行手实发工资签名13王钱252030203055415.83114.502453.301.002452.30序号姓名出勤天数月薪应发基本工资加班工资岗位补贴全勤奖金伙食补助通信补款迟到漏卡预支款扣水电费其他扣款迟到扣款个人所得税未打卡社保应发工资银行手实发工资签名14王文22203020300114.501915.501.001914.50序号姓名出勤天数月薪应发基本工资加班工资岗位补贴全勤奖金伙食补助通信补款迟到漏卡预支款扣水电费其他扣款迟到扣款个人所得税未打卡社保应发工资银行手实发工资签名15李林2420302030369114.502284.591.002283.59序号姓名出勤天数月薪应发基本工资加班工资岗位补贴全勤奖金伙食补助通信补款迟到漏卡预支款扣水电费其他扣款迟到扣款个人所得税未打卡社保应发工资银行手实发工资签名16张珍22203020300114.501915.501.001914.50序号姓名出勤天数月薪应发基本工资加班工资岗位补贴全勤奖金伙食补助通信补款迟到漏卡预支款扣水电费其他扣款迟到扣款个人所得税未打卡社保应发工资银行手实发工资签名17李立232030203018515.83114.502084.211.002083.21序号姓名出勤天数月薪应发基本工资加班工资岗位补贴全勤奖金伙食补助通信补款迟到漏卡预支款扣水电费其他扣款迟到扣款个人所得税未打卡社保应发工资银行手实发工资签名18余新22203020300114.501915.501.001914.50序号姓名出勤天数月薪应发基本工资加班工资岗位补贴全勤奖金伙食补助通信补款迟到漏卡预支款扣水电费其他扣款迟到扣款个人所得税未打卡社保应发工资银行手实发工资签名序号姓名出勤天数月薪应发基本工资加班工资岗位补贴全勤奖金伙食补助通信补款迟到漏卡预支款扣水电费其他扣款迟到扣款个人所得税未打卡社保应发工资银行手实发工资签名序号姓名出勤天数月薪应发基本工资加班工资岗位补贴全勤奖金伙食补助通信补款迟到漏卡预支款扣水电费其他扣款迟到扣款个人所得税未打卡社保应发工资银行手实发工资签名序号姓名出勤天数月薪应发基本工资加班工资岗位补贴全勤奖金伙食补助通信补款迟到漏卡预支款扣水电费其他扣款迟到扣款个人所得税未打卡社保应发工资银行手实发工资签名2015年9月份工资条2015年9月份工资条2015年9月份工资条2015年9月份工资条2015年9月份工资条2015年9月份工资条2015年9月份工资条2015年9月份工资条2015年9月份工资条2015年9月份工资条2015年9月份工资条说明：一、另一个工作表是员工工资表，通过宏调用自动将员工工资表的内容复制到工资条模板格式中，并一次性打印出来。二、因为方便大家在百度预览时能看到代码，故没有设置打印区域，如需打印请选中打印工资条的部分设置打印区域即可三、打印时如果没反应请查看宏设置的安全级别，请设为中或低。四、在开发工具中，进入“设计模式”可查看修改代码。五、详细代码如下：PrivateSubCommandButton1_Click()Dimi,j,cAsIntegerc=Sheets(工资表).Range(D3).CurrentRegion.Rows.Count-1'后面1行数据不用打印，所以减1Fori=4TocRange(a3:x3)='先将工资条打印内的数据清空Range(a7:x7)=Range(a11:x11)=Range(a15:x15)=Range(a19:x19)=Range(a23:x23)=Range(a27:x27)=Range(a31:x31)=Range(a35:x35)=Range(a39:x39)=Range(a43:x43)=Forj=3To43Step4'此循环是控制一页纸上打印几行工资条Sheets(工资表).Range(A&i&:X&i).Copy'复制工资表需打印工资打的内容Range(A&j).Select'选择需要将员工信息粘贴到的位置ActiveSheet.Paste'将员工信息粘贴到对应位置，如果员工资条有些内容不打印可将相对应的列内容隐藏即可i=i+1IficThen'检测是否已打印到最末一行，是则退出循环ExitForEndIfNextjPrintOutCopies:=1'此处是打印语句，如果只想预览不打印可以此名前加英文一撇即'i=i-1NextiEndSub交流QQ：35044479，因本人从事会计工作，故设置了这个自动打印工资条的宏，欢迎交流。已设好程序，按此打印按钮可自动生成工资条并打印打印工资条