宏代码如下,两段代码都可以实现“打印当前页”。前一种,弹出“打印”对话框,自动选择了“打印当前页”,最后需要自己点击“确定”键。后一种,不会弹出对话框,而是直接打印了。
可以将这个功能手动放到工具栏上,随时使用。
Sub 打印当前页() With Dialogs(wdDialogFilePrint)
.Range = wdPrintCurrentPage
.Show
End With End Sub
Sub 打印当前页() Application.PrintOut FileName:="", Range:=wdPrintCurrentPage End Sub 当然,还有一种不需要编写代码的方法,就是操作一遍“打印当前页”的过程,录制成宏。