Question

EXCEL如何根据内容自动设置打印区域？

当打开EXCEL表格时，选择打印预览，会有很多内容跑到打印区域之外，然后我需要手动改列宽，比例，将打印区域线拉到合适的位置。是否有VBA程序可以完成这一简单操作呢？能否帮我编辑代码呢？感激不尽

Answer 1

1. 打开编辑好的Excel文档，选中想要打印的区域，如图所示（阴影图层部分为所要打印的区域）。
   

   

2. 点击页面布局选项卡，选择打印区域选项， 点击设置打印区域子选项，这时候就成功设置了打印区域。

   

3. 在设置好打印区域后，需要对选中的打印区域的输出效果稍作调整，以符合输出需求。首先按下CTRL+P， 点击预览选项（红色笔标注）。

   

4. 在弹出的先窗口中点击页面设置， 可以看到（如下图）1-页面，2-页边距，3-页眉/页脚，4-工作表四个选项卡，它们分别依次负责调整页面布局，调整页边距，添加页眉和页脚，以及工作表打印输出的一些高级选项（工作表选项新手很少使用），再熟悉了整个简单的页面设置后读者可以自行尝试对每一个选项进行亲自操作。
   

   

5. 上述调整完成后，点击确定，输出到打印机即可 。
   

Answer 2

其实这个不用VBA，只要在打印的选项中选择“所有列在一页”“所有行在一页”“所有工作表在一页”，电脑会自动缩小的

Answer 3

在表格中放个按钮，指定下面的宏：
Sub 设置打印区域()
PageSetup.PrintArea = UsedRange.Address
End Sub

追问

如何在表格中放个按钮呢？谢谢啦，我运行后，跳出对话框说:Run-time error"28" Out of stack space

Answer 4

你可以直接在页面设置里面设置一下，就可以正常打印出来你要的东西了。

Answer 5

可以在打印设置里面 设置为“只在1页内打印”。