excel怎么批量设置打印区域

发布网友 发布时间：2022-03-03 19:24

我来回答

共2个回答

热心网友 时间：2022-03-03 20:53

这个问题可以用VB来解决，代码如下：
Option
Explicit
Sub
打印()
Dim
i
As
Integer
For
i
=
1
To
ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(i).Activate
'去每一个你说的工作表。
With
ActiveSheet
'下面两句是设置打印区间，对于已经设置过打印区间的，可以省略。
'
.Range("A1:H19").Select
'选择要打印的区域。
'
.PageSetup.PrintArea
=
"$C$4:$G$12"
'设定打印区域。
.PrintOut
Copies:=1,
Collate:=True
'直接用默认的打印机打印出来。当然可以行PageSetup页面设置的。
End
With
Next
End
Sub

热心网友 时间：2022-03-03 22:11

打印区域如果相同,可以录制设置其中一个打印区域的一个宏,重复执行,如果不同,就只能手动设置
这样可以么？