excel多个工作簿打印第一个工作表,如何批量打印?

如题所述

第1个回答  2007-04-24
用VBA代码可以做到的,代码如下:
运行下面代码时要注意,你需要打印的EXCEL工作簿全部打开,不打印的工作簿全部要关闭,不然,它将你全部打开的工作簿都打印,这里打印的都是每一个工作簿的第一张工作表:
Sub 打印所有工作簿的第一张工作表()
Dim k As Workbook
For Each k In Workbooks
MsgBox "接下来,将打印工作簿:" & k.Name & vbCrLf & " 第一张工作表:" & k.Sheets(1).Name
k.Sheets(1).PrintOut copies:=1, collate:=True
Next k

End Sub
第2个回答  2007-04-24
问题不清楚,你意思是每个工作薄只打印一个工作表?而多个工作薄一起打印?本回答被网友采纳
相似回答