巧用Excel函数也能批量打印明信片（续）

　　启动Excel，，按下“Alt+F11”组合键进入VBA编辑状态，在右边选中《原文》名称，执行“插入→模块”命令，插入一个新模块(模块1)，然后将下述代码输入到模块1右侧的代码编辑区中:

　　Sub dy()
　　On Error Resume Next
　　x = inputbox("请输入打印起始序号:","提示")
　　y = inputbox("请输入打印结束序号:","提示")
　　For i = x To y
　　Cells(1, 8) = i
　　ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
　　Next i
　　End Sub

　　输入完成后，关闭VBA编辑窗口，返回Excel中。

　　将多张明信片装入打印机中，运行上述宏，在随后弹出的两个对话框(如图1)中，分别输入要打印的明信片的起始序号和结束序号(如8、18)，按下确定按钮，序号为8—18号的明信片即刻被打印出来。

　　怎么样?这下效率高多了吧!

（阅读次数：）