这个问题可以用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
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
温馨提示：内容为网友见解，仅供参考
第1个回答 2014-04-03
打印区域如果相同,可以录制设置其中一个打印区域的一个宏,重复执行,如果不同,就只能手动设置追问
相同，宏代码可以发给我吗？
追答需要你自己录制,因为打印范围只有你自己清楚
录制宏在 视图-宏 中,点录制后,设置快捷键,操作完点结束录制
谢谢！录制后要一个工作表一个工作表的执行宏吗？能不能全部执行？
追答在最前边加上
Dim i
For i = 1 To Sheets.Count
Sheets(i).Active
最后end sub 上边 加上 next
按 F5 执行
相似回答
