求编写VBA代码设置工资条打印格式

sqzhouboy

一、说明：
1、工资条通过函数生成的，但需每月手工制作，公式为=IF(CHOOSE(MOD(ROW(),3)+1,"", 工资!I$1,OFFSET(工资!I$1,ROW()/3+1,))=0,"",CHOOSE(MOD(ROW(),3)+1,"", 工资!I$1,OFFSET(工资!I$1,ROW()/3+1,)))；     
2、工资表中的项目（字段）每月均会发生变化，每增加降温费，中秋节慰问金等；     
      
二、存在问题：  
1、每月需通过公式函数制作工资条，并分部门划分后下发员工签收，效率低下。     
2、无法分部门折分工资条，需手动拆分。     
      
三、需求说明：
1、通过编写VBA批量生成工资条。     
2、无论工资表的行、列数量如何变化均能正确生成工资条；
3、生成的工资条每页5名员工方便剪切派发，具体格如“工资条”式样（样板，不一定完全相同，请看第五点）；
4、分部门自动生成各部门的工资条,工作表/薄名称为“月份+部门+工资条”,如“2015年9月部门A工资条”可以在同一个工作薄，最好能生成独立的工作薄，然后通过邮件直接下发各部门管理人员。      
5、为方便打印，生成的工作表进行如下页面设置：1、方向：纵向；2、每条工资条字段行水平及垂直居中、自动换行，内容（数据）行水平及垂直居中、缩小字体填充；3、无论列字段如何增减，输出的工作表均自动设置打印为一页宽、每页5条记录（尽量设置工资条字段行及内容行固定宽度及高度，通过设置工资条空白行（用于剪切）行高自动调整）。      
      
以上第三条1-4点已基本完成，请查看代码，请完善代码以实现第三条第5点，或者重新编写代码实现。      
201509工资条.zip (72.02 KB, 下载次数: 7)

2015-9-17 14:44 上传

点击文件名下载附件