1、点击顶部菜单开发工具下的VB编辑器。

2、在编辑器窗口的顶部,点击插入模块。

3、在代码编辑窗口输入以下代码,运行即可将excel表打印到一张纸上。
Sub Macro1()
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1
End Sub

时间:2026-02-15 17:05:28
1、点击顶部菜单开发工具下的VB编辑器。

2、在编辑器窗口的顶部,点击插入模块。

3、在代码编辑窗口输入以下代码,运行即可将excel表打印到一张纸上。
Sub Macro1()
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1
End Sub
