excel中不同的工作表打印成同样大小

发布网友 发布时间：2022-05-25 04:58

我来回答

共5个回答

热心网友 时间：2024-11-22 22:47

打印预览，看看实际大小，再调节各个行高或列宽。
在打印预览里面还可以缩放大小：页面——缩放——缩放比例：输入百分比；
或先设置页边距——再在打印预览里面的缩放中选“调整为”1页宽高——最后确定看看效果。

热心网友 时间：2024-11-22 22:48

这个需要把一个调整好后按照这个模板去制作表格，如果增加行列还需要重新设置，在页面设置里有上下左右的具体数据调整，如果你都已经编辑好了想一次打印一样的边距这个在WORD里可以做到，excel里做不到，别多想了。

热心网友 时间：2024-11-22 22:48

就我的理解，你的问题中包含2个问题，第一需要调整打印格式，第二需要连续打印工作表。这样的话用VBA来处理比较简单：
Sub PrintPreview()

Dim my As Worksheet
For Each my In Worksheets
my.Activate
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.3)
.RightMargin = Application.InchesToPoints(0.3)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.2)
.FooterMargin = Application.InchesToPoints(0.2)
.FitToPagesWide = 1
.FitToPagesTall = 1
.Orientation = xlLandscape
End With
my.PrintPreview
Next my

End Sub

请在EXCEL中VBA编辑器中插入模块，然后把以上代码复制到模块代码窗口，然后运行这个宏。由于不知道你最终需要的效果是什么样的。建议先试验一下：
1、先找个文件，里面只包含3个左右工作表，然后运行宏看看是不是你要的效果；
2、上面的宏只是打印预览，如果效果可以，就把my.PrintPreview改成my.PrintOut就可以连续打印了；
3、上面的宏是横向打印的，如果要改成竖向的话就把.Orientation = xlLandscape改成.Orientation = xlPortrait就可以了；
4、上面代码中（）内的数字可以用来调整页边距，你可以自己试试。

希望能够帮到你，如果还有什么问题可以HI我。

热心网友 时间：2024-11-22 22:49

可以创建一个模板，在一个普通EXCEL文件里面你把打印设置等参数设置好

然后另存为模板文件，然后其他工作簿套用这个模板建立就可以了

热心网友 时间：2024-11-22 22:49

你把行高 和列宽都 调成一样不就可以了吗？