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

《用Excel和VBA轻松实现桌签批量打印》由会员分享，可在线阅读，更多相关《用Excel和VBA轻松实现桌签批量打印（3页珍藏版）》请在金锄头文库上搜索。

1、用 Excel 和 VBA 轻松实现桌签批量打印用 Excel 来制作桌面标签（以下简称桌签）确实是一个比较新颖的方法，不过要是同时制作很多桌签也还是比较费时的。那么今天笔者就介绍一种用 VBA 轻松实现桌签批量打印的方法。一、 准备工作启动 Excel2003(其他单元格也可以) ，执行“工具自定义”命令，打开“自定义”对话框。在“命令”标签中，选中“类别”下面的“工具”选项，然后在“命令”下面找到“照相机”选项，并将它拖到工具栏合适位置上。在 Sheet1 工作表中(最好将文档取名保存一下) ，仿照图 1 的样式，在 B 列相应的单元格中输入需要打印桌签的名称，并在 A1中输入一个名称。在

2、 C1 单元格(也可以是其他单元格)中输入公式:=COUNTA(B:B)，用于统计所要打印的桌签数目。选中 A1 单元格，设置字符居中对齐，并设置一种适合用作桌签的字体(如魏碑体)。二、 制作桌签选中 A1 单元格，单击一下工具栏上的“照相机”按钮，再切换到“Sheet2 ”工作表中，单击一下鼠标，即可得到一张 A1 单元格的照片小贴士:这种照片不同于普通图片，它与 A1 单元格中的数据建立了链接，随 A1 单元格中的字符改变而改变。选中“照片” ，执行“格式图片”命令，打开“设置图片格式”对话框，在“颜色与线条”标签中，将“线条”设置为“无线条颜色” ，点击“确定”返回。根据桌签底座的尺寸，

3、将“照片”调整至合适大小，并将它定位到页面合适位置上。将上述“照片”复制一份，在“设置图片格式”对话框的“大小”标签中，将它“旋转180” ，并将它定位到页面合适位置上(效果参见图 2)。三、 编制宏程序按下“Alt+F11”组合键，打开“Visual Basic 编辑器”( 图 3)，在右侧的“工程资源管理器”区域中，选中“VBAProject(桌签.xls)”选项，执行“插入模块”命令，插入一个模块(模块 1)。双击“模块 1”，展开右侧的代码编辑区，将下述代码输入其中:Sub 桌签() 建立一个名称为“桌签”的宏。For i = 1 To Sheet1.Cells(1, 3) 设立一个循

4、环:开始值为 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执行一下打印操作，打印出一

5、张桌签。Next 进入下一个循环。Sheet1.Select 桌签全部打印完成后，选中 Sheet1 工作表。Range(B1).Select 选中 B1 单元格，等待下一次修改字符。ActiveWorkbook.Save 保存当前工作簿文档。Application.Quit 退出 Excel。End Sub 宏的结束符号。小贴士:上述代码中英文单引号及其后面的字符是对代码的注释，可以不输入。宏的结束符号上面的 4 行代码不输入不影响桌签的打印。输入完成后，关闭“Visual Basic 编辑器”窗口。四、添加按钮切换到 Sheet1 工作表中，执行“视图工具栏窗体”命令，展开“窗体”工具栏，单击工具栏上的“按钮”按钮，在工作表中拖拉出一个按钮，此时系统弹出“指定宏”对话框(图 4)，选中刚才编制的“桌签”宏，确定返回。2.将按钮上的文字修改为“打印桌签” ，再调整好大小，并定位在工作表合适位置上(参见图 1)。以后需要打印桌签时，只要将相应的字符输入到 B 列下面的单元格中，然后按下“打印桌签”按钮，就一切 OK 了。