点击下载此附件
图 示:
Public Function 放大() DoCmd.RunCommand acCmdZoomBox '缩放框 End Function 复制到任意一个模块里就可以调用了
此功能也可以按Shift+F2打开缩放对话框