1、点击顶部菜单开发工具下的VB编辑器。
2、在编辑器窗口的顶部,点击插入模块。
3、在代码编辑窗口输入以下代码,运行即可将excel表打印到一张纸上。Sub Macro1() ActiveSheet.PageS髫潋啜缅etup.FitToPagesWide = 1 ActiveSheet.PageSetup.FitToPagesTall = 1End Sub
时间:2024-10-12 04:07:03
1、点击顶部菜单开发工具下的VB编辑器。
2、在编辑器窗口的顶部,点击插入模块。
3、在代码编辑窗口输入以下代码,运行即可将excel表打印到一张纸上。Sub Macro1() ActiveSheet.PageS髫潋啜缅etup.FitToPagesWide = 1 ActiveSheet.PageSetup.FitToPagesTall = 1End Sub