第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