200多个Excel文件夹，每个文件里面分别有4-5个Sheet，怎么将全部文件打印出来呢？

答案:1 悬赏:20 手机版

解决时间 2021-01-10 10:34

提问者网友：沉默菋噵
2021-01-09 13:38

最佳答案

五星知识达人网友：平生事
2021-01-09 13:58

你确定要一次打印？？考虑过开始打印后的后果吗？？？你知道每个excel表你有几个工作表？有可能200个excel打印出来几千张A4纸。而且打印出的内容分在两页纸里，一列数据几百行就是几张A4纸。建议还是一张张打开排版打印吧，或者之前全部排版没更换打印机可以直接一起打印。
另外这个VBA实现打印所有文件excel表“F:\物流部\”指定路径
Sub test()
Set rrr = CreateObject("Scripting.FileSystemObject")
Set r = rrr.GetFolder("F:\物流部\")
For Each i In r.Files
Workbooks.Open Filename:=("F:\物流部\" + i.Name + "")
Sheet1.PageSetup.PrintArea = ""
ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
ActiveWorkbook.Save
ActiveWorkbook.Close
Next
End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息