EXCEL只打印当前页.docVIP

1 “Sub打印当前页()”和“End Sub”两行之间输入以下内容，此内容单独占一行位置(如图1)： 　　Application.PrintOut Range:=wdPrintCurrentPage 　　输入完后按［Alt+Q］返回Word 2000编辑环境。 2 妙用VBA “改造”Word的对话框 发稿时间：2004-12-19　　作者：admin 点击：1505 次 Word对话框中的默认设置，是针对大多数用户的一般使用情况设计的，这样就有可能不符合某些用户的使用情况。不过我们可利用VBA（Visual Basic for Applications）来“改造”Word的对话框，以满足我们个性化的要求。 　　Word的“打印”对话框中，默认的页面范围为“全部”，而笔者在工作中使用Word打印时，大多情况都是打印当前页，因而每次打印都要选择“当前页”选项，偶尔忘记选择该选项时就会打印出全部页面，既烦琐又可能造成不必要的浪费。因此，笔者一直在寻找办法，使“打印”对话框中“当前页”成为默认设置。 　　众所周知，借助VBA可改进和增强Word的功能，笔者在系统地学习了VBA知识后发现，只要编写一个简单的宏就能实现目的。 　　编写宏的方法是：单击菜单“工具”→“宏”→“宏”，在“宏名”文本框中输入宏的名称，这个宏必须取名为“FilePrint”（具体原因详见下述），单击“创建”，在弹出的VBA代码窗口中“Sub FilePrint()”与“End Sub”两行间输入并完成以下内容： 　　Sub FilePrint() 　　 With Dialogs(wdDialogFilePrint) 　　 .Range = wdPrintCurrentPage 　　 .Show 　　 End With 　　End Sub 　　保存后退出VBA窗口，返回Word后单击“文件”→“打印”，会发现“当前页”成为默认设置（如图1）。 　　上面的宏是如何实现目的的呢？下面我们来作详细分析。 　　这个宏取名为“FilePrint”，它与“打印”命令的名称相同，Word规定，当用户建立的宏与Word的内置命令名称相同时，将执行宏而不执行Word的内置命令。按照这个原理，我们就可用自建的宏来改进Word命令。 　　如何知道一个Word命令的名称呢？有一个简单的办法，按快捷键Ctrl+Alt+“+”（小键盘上的加号键），鼠标指针变成一朵花形，这时单击某个命令，弹出的对话框中就能看到该命令的名称（如图2）。 　　明白了上述原理，我们就可轻易改变Word的很多默认设定，下面再讲两个小例子，帮助大家理解。 　　当我们执行“文件”→“打开”命令时，对话框中的“文件类型”可能为“所有文件”、“Word文档”、“文本文件”等，具体类型与上次选择的“文件类型”相同。下面的宏可让“打开”对话框中的“文件类型”固定为“所有Word文档”（如图3）。 　　Sub FileOpen() 　　 With Dialogs(wdDialogFileOpen) 　　 .Name = *.doc 　　 .Show 　　 End With 　　End Sub 　　当我们执行“工具”→“自动更正选项”命令时，对话框中首先显示的是“自动更正”选项卡，下面的宏可使该对话框中首先显示“自动图文集”选项卡（如图4）。 　　Sub ShowBorderDialog() 　　 With Dialogs(wdDialogToolsAutoManager) 　　 .DefaultTab = wdDialogToolsAutoManagerTabAutoText 　　 .Show 　　 End With 　　End Sub 　　看了上面的实例和具体分析之后，想必你已能“知其然，知其所以然”了。但要知道“改造”Word的任何对话框，你还需了解一点知识，即如何知道某个选项设置的属性和其赋值，例如上面的“打印”对话框中的Range属性和其赋值“wdPrintCurrentPage”，是用什么方法查询到的呢？有个办法是录制一个操作此对话框的宏，然后从宏代码中分析得到相关属性和赋值（如图5），如果宏代码中也不能分析出来，你就只有查看VBA的帮助文件了。VBA实在太精彩了，有兴趣的朋友可进一步探寻其中的秘密。