个人宏工作簿中插入模块工作表中键入以下过程︰ Sub SetPrintArea() On Error Resume Next ActiveSheet.PageSetup.PrintArea = Selection.Address End Sub 使用 Visual Basic 模块为活动时，在工具菜单上单击菜单编辑器。
