用Excel打印工资条
软件世界
一、制作工资条
1．启动Excel，打开工资表文档。切换到Sheet2工作表(我们也可以命名为“工资条”)中，分别选中A1至F1单元格，依次输入工号、姓名、工资……等工资表项目名称(参见图1)。
2．选中A2单元格，输入公式：=ROUNDUP((COUNTA(工资表！A:A)-2)/10,0)，用于统计工资条共有多少页(此处假定每页打印10个人的工资条)。分别选中B2至F2单元格，输入数字2、3……6。
3．选中A4单元格，输入公式：=A3+1。确认后再次选中A4单元格，将鼠标移至该单元格右下角成细十字线状时(我们通常称这种状态为“填充柄”状态)，按住左键向下拖拉，将上述公式复制到A5至A12单元格。
4．选中B3单元格，输入公式：=IF(ISERROR(VLOOKUP($A3,工资表！$A:$F,B$2,FALSE)),“”,VLOOKUP($A3,工资表！$A:$F,B$2,FALSE))。再次选中B3单元格，用“填充柄”将该公式复制到C3至F3单元格中；再同时选中B3至F3单元格，用“填充柄”将其中的公式复制到B4至F12单元格中(参见图1)。
5．选中第2行，右击鼠标，在随后弹出的快捷菜单中，选择“隐藏”选项，将该行隐藏起来。选中第1行，按“常用”工具条上的“复制”按钮，再选中第4行，右击鼠标，在弹出的快捷菜单中，选“插入复制单元格”选项；再同时选中第4行和第5行，右击鼠标，在弹出的快捷菜单中，选“插入”选项，插入两行空白行。
6．同时选中第4、5、6行，执行复制操作，再选中第8行，右击鼠标，在弹出的快捷菜单中，选“插入复制单元格”选项。仿照上面的操作，将两行空白行和标题行插入到下面的数据行上(结果如图2)。
7.设置好字体、字号、行高和列宽等。
二、打印工资条
当我们需要打印工资条时，可以通过下面两种方法来实现：
◆手工打印
1.启动Excel，打开工资表文档，切换到“工资条”工作表中，在A3单元格中输入第1位职工“工号”(此处我们假定为“1”)，1至10号职工工资就自动填入下面各工资条中，按下“常用”工具条上“打印”按钮(先将打印机打开，并装上打印纸)，1至10号职工的工资条就打印出来了。
2.依照上面的操作，在A3单元格中输入数字11(第11号职工的工号)、21(第21号职工工号)……，将所有职工的工资条全部打印出来。
◆自动打印
如果觉得上述手工打印操作比较麻烦，可以用VBA来自动打印。
1.按下“Alt+f11”组合键进入VBA编辑状态(如图3)。
2.在左侧区域中，选中“工资表”选项，执行“插入→模块”命令，插入一个新模块(“模块1”)，然后将下述代码输入到“模块1”右侧的编辑区域中：
Sub 工资条()
x = Cells(2, 1)
For i = 1 To x
Cells(3, 1) = 10 * (i - 1) + 1
ActiveWindow.SelectedSheets.PrintOut
Next
End Sub
输入完成后，关闭编辑窗口，返回工作表中。
小贴士：上述代码中“Cells(3, 1) = 10 * (i - 1) + 1”表示在A3单元格中依次输入1、11、21……等数值，如果1页打印工资条的数目不是10人，请修改代码中的数值“10”。
3.执行“视图、工具栏、控件工具箱”命令，展开“控件工具箱”工具栏(如图4)。
4.点击“工具栏”上的“命令按钮”按钮，然后在工作表中拖拉一下，画出一个命令按钮。
5.右击命令按钮，在随后弹出的快捷菜单中，选择“属性”选项，打开“属性”对话框(如图5)，切换到“按分类序”标签下，展开“外观”选项，将“Caption”选项后面的字符修改为“打印工资条”，再展开“杂项”选项，将“PrintObiect”选项设置为“False”，关闭返回。
小贴士：如果对“PrintObiect”选项采取其默认的设置“True”，那么在打印时，该按钮一同被打印出来，影响工资条的观感效果。
6.双击命令按钮，再次进入VBA编辑状态，将下述代码输入到右侧的编辑区域中：
Private Sub CommandButton1_Click()
工资条
End Sub
关闭返回。
小贴士：上述代码中的“工资条”请与第2步的代码名称保持一致。
7.调整个命令按钮的大小，并定位在工作表的合适位置上，再按一下“工具栏”上的“退出设计模式”按钮。
以后需要打印工资条时，只要按一下这个按钮就可以了(“工资表”中的人数可以随时增减，不影响打印效果)。