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

　　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行代码不输入不影响桌签的打印。

页码：[1] [2] [3] [4] [5] 第4页、共5页

设为首页 | 加入收藏 | 广告服务 | 友情链接 | 版权申明