用Excel和VBA轻松实现桌签批量打印

用 Excel 和 VBA 轻松实现桌签批量打印用 Excel 来制作桌面标签（以下简称桌签）确实是一个比较新颖的方法，不过要是同时制作很多桌签也还是比较费时的。那么今天笔者就介绍一种用VBA 轻松实现桌签批量打印的方法。一、 准备工作启动 Excel2003( 其他单元格也可以 )，执行 “ 工具 自定义 ” 命令，打开 “ 自定义 ” 对话框。在 “ 命令” 标签中，选中 “ 类别” 下面的 “ 工具 ” 选项，然后在 “ 命令 ” 下面找到 “ 照相机 ” 选项，并将它拖到工具栏合适位置上。在 Sheet1 工作表中 (最好将文档取名保存一下)，仿照图 1 的样式，在 B 列相应的单元格中输入需要打印桌签的名称，并在A1 中输入一个名称。图 1 在 C1 单元格 (也可以是其他单元格)中输入公式 :=COUNTA(B:B) ，用于统计所要打印的桌签数目。选中 A1 单元格，设置字符居中对齐，并设置一种适合用作桌签的字体(如魏碑体 )。二、 制作桌签选中 A1 单元格，单击一下工具栏上的“ 照相机 ” 按钮，再切换到 “Sheet2”工作表中，单击一下鼠标，即可得到一张A1 单元格的照片 (图 2)。图 2 小贴士 :这种照片不同于普通图片，它与A1 单元格中的数据建立了链接，随A1 单元格中的字符改变而改变。选中 “ 照片 ” ， 执行 “ 格式 图片 ” 命令，打开“ 设置图片格式 ” 对话框，在“ 颜色与线条 ” 标签中，将“ 线条” 设置为 “ 无线条颜色 ” ，点击 “ 确定” 返回。根据桌签底座的尺寸，将“ 照片 ” 调整至合适大小，并将它定位到页面合适位置上。将上述 “ 照片 ” 复制一份，在 “ 设置图片格式 ” 对话框的 “ 大小 ” 标签中，将它 “ 旋转180°”，并将它定位到页面合适位置上(效果参见图 2)。三、 编制宏程序按下 “Alt+F11 ”组合键，打开 “Visual Basic 编辑器 ”(图 3)，在右侧的 “ 工程资源管理器 ” 区域中，选中 “VBAProject( 桌签.x ls) ”选项，执行 “ 插入 模块” 命令，插入一个模块(模块 1)。图 4 双击 “ 模块 1” ，展开右侧的代码编辑区，将下述代码输入其中: Sub 桌签 () '建立一个名称为 “ 桌签 ” 的宏。For i = 1 To Sheet1.Cells(1, 3) '设立一个循环 :开始值为 1，结束值为 Sheet1 工作表 C3 单元格内的值 (即桌签数目 )。Sheet1.Select '选中 Sheet1 工作表。Cells(1, 1).Value = Cells(i, 2).Value '依次将 B 列的桌签字符调入A1 单元格中。Columns(“A:A“).Select '选中 A 列。Selection.Columns.AutoFit '将 A 列设置为 “ 最合适的列宽 ” ，这样让字符不同的桌签自动适应“ 照片” 的大小。Sheet2.Select '选中 Sheet2 工作表。ActiveWindow.SelectedSheets.PrintOut'执行一下打印操作，打印出一张桌签。Next '进入下一个循环。Sheet1.Select '桌签全部打印完成后，选中Sheet1 工作表。Range(“B1“).Select '选中 B1 单元格，等待下一次修改字符。ActiveWorkbook.Save '保存当前工作簿文档。Application.Quit '退出 Excel。End Sub '宏的结束符号。小贴士 :上述代码中英文单引号及其后面的字符是对代码的注释，可以不输入。宏的结束符号上面的 4 行代码不输入不影响桌签的打印。输入完成后，关闭“Visual Basic 编辑器 ” 窗口。四、添加按钮切换到 Sheet1 工作表中， 执行 “ 视图工具栏 窗体” 命令，展开 “ 窗体” 工具栏，单击工具栏上的“ 按钮 ” 按钮，在工作表中拖拉出一个按钮，此时系统弹出 “ 指定宏 ” 对话框 (图 4)，选中刚才编制的 “ 桌签” 宏，确定返回。图 5 2.将按钮上的文字修改为“ 打印桌签 ” ，再调整好大小，并定位在工作表合适位置上(参见图 1)。以后需要打印桌签时， 只要将相应的字符输入到B 列下面的单元格中， 然后按下 “ 打印桌签 ” 按钮，就一切 OK 了。