Excel打印工资条的方法.docVIP

方法1：  方法1： Sub 打印工资条() Sheets(1).Select Sheets(1).Copy After:=Sheets(1) Rows(1:65536).Select Selection.RowHeight = 25 Rows(1:1).Select Selection.Insert Shift:=xlDown Selection.RowHeight = 15 num = 1 k = 1 Do While Cells(num + 2, 1) num = num + 3 Rows(1:2).Select Application.CutCopyMode = False Selection.Copy Rows(num).Select Selection.Insert Shift:=xlDown Loop Rows(1:1).Delete Rows(num).Select Selection.Delete Shift:=xlDown End Sub 实现你要求的打印格式程序如下，是根据你的实际表的情况，用宏编写的： Sub Print_table() Application.ScreenUpdating = False 为避免破坏表一，将表一内容完整复制到表二 Sheets(1).[A1].CurrentRegion.Copy Sheets(2).[A1] Sheets(sheet2).Select 5 是工资表上打印的人数减1，可更改 For i = 1 To 5 每个工人工资条下方插入两行，20是工资表的列数，可根据情况更改，下面三行中的的20要同时修改。 Range(Cells(3 * i + 1, 1), Cells(3 * i + 2, 20)).Select Selection.Insert Shift:=xlDown 复制表头 Range(Cells(1, 1), Cells(2, 20)).Select Selection.Copy Cells(3 * i + 1, 1).Select ActiveSheet.Paste ActiveCell.Rows(1:1).EntireRow.RowHeight = 42 Next Range(a2).Select End Sub 请注意以下几点： 1、Excel启动时，提示是否使用宏，点击“启用宏”。 2、此程序认为工资表页面的名称是“sheet2”，如果你的工资表是别的名称，比如说，“一车间”，则把程序第二行中的sheet2替换掉，写成 sheets(一车间).select 3、程序装载方法：在页面上点击“工具”-〉宏 -〉Visual Basic编辑器 在空白的方框里，将上面的程序复制上去，点击编辑器工具栏里的小箭头即可运行程序了。如果光标不在程序中，点击小箭头时，会弹出一个窗口，此时选中宏的名称，点击“运行”即可。 4、程序行前面有的是注释行，是英文字符中的单引号。 5、原来的工资表的格式应该是只有最上面一个表头，下面每一行是一位工人的工资条。 6、此程序在winXP下调试通过，建议你先用一页表调试一下。 将EXCEL表格套印在WORD里的邮件合并功能来实现