excel
你确定要一次打印？？考虑过开始打印后的后果吗？？？你知道每个
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.FilesWorkbooks.Open Filename:=("F:
物流部" + i.Name + "")Sheet1.PageSetup.PrintArea = ""ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=FalseActiveWorkbook.SaveActiveWorkbook.CloseNextEnd Sub
