【求助】打印当前页

方便快捷--------打印当前页 你有没有遇到这样的情况：明明只要打印文件（特别是多页文档）的当前页，结果一不留心按下了工具栏的【打印】按钮，把不需要的页面页也打印出来了，既浪费了纸张，还耽误了时间。要不就是从【文件】菜单中选择【打印】，再点击【当前页，】，确定，是不是非常麻烦 ？有没有方便快捷的方法哪？答案是肯定的：“有”。如果你感兴趣，就接着往下看： 打开word，点击菜单【工具】—【宏】—【录制新宏】，出现如图一所示的“录制宏”窗口， 在【宏名】下输入宏的名字，就叫“dydqy”吧。接下来点击【键盘】，为宏制定一个快捷键，即在随后出现的窗口（如图二）在你的键盘上按下你想用的快捷键，如“Ait+Z ”，“请按新快捷键”的下方（光标闪烁处）出现” “Ait+Z ”，然后点击【指定】，在点击【关闭】。 然后点击点击菜单【工具】—【宏】—【停止录制】，终止当前运行的程序。 接下来一次点击【工具】—【宏】—【宏】，从图三所示的窗孔中点击选择宏“DYDQY”，点编辑进入Microsoft Visual Basic编辑界面，将sub DYDQY与End Sub之间的内用删除掉，写入下面的语句： “Application.PrintOut FileName:="", Range:=wdPrintCurrentPage”，然后保存，退出。 使用时按下快捷键，如“Ait+Z”，你所需要的文档就轻松打出来了。 看到此帖的朋友，如果你觉得好，就顶一下，我没有功劳也有苦劳吧，呵呵！ 测试通过 恩恩

Sub 打印当前页() On Error GoTo errhandle Application.PrintOut FileName:="", Range:=wdPrintCurrentPage errhandle: If Err.Number <> 0 Then MsgBox "错误号及描述：" & Err.Number & Err.Descrīption, vbCritical, "打印错误" End If End Sub 带错误监测的