excel怎么批量设置打印区域

Question

选中所有的工作表之后，打印区域是设置不了的

Answer 1

这个问题可以用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

Answer 2

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

追问

相同，宏代码可以发给我吗？

追答

需要你自己录制,因为打印范围只有你自己清楚

录制宏在 视图-宏 中,点录制后,设置快捷键,操作完点结束录制

追问

谢谢！录制后要一个工作表一个工作表的执行宏吗？能不能全部执行？

追答

在最前边加上 

Dim i

 For i = 1 To Sheets.Count

 Sheets(i).Active

最后end sub 上边 加上 next

按 F5 执行

