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

mydiannao Office&WPS 09-12 5016 0

看了我们办公软件栏目11月6日《巧用Excel函数也能批量打印明信片》(以下简称《原文》)的文章http://edu.itbulo.com/200611/108944.htm)，觉得还不够完美，需要改进。

　　启动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号的明信片即刻被打印出来。