Question

请问如何根据Excel表里指定的名称，通过宏批量打印同一文件夹内相对应名称的图片文件？

同一个文件里有多个扫描的图片文件，例如A公司，B公司，C公司……，请问能否根据Excel表里指定的名称，通过宏批量打印相对应名称的图片文件？

Answer 1

示例代码如下：

Sub 宏1() Dim r as Range For Each r In Sheets("Sheet1").Range("A4").CurrentRegion.Cells If Trim(r) <> "" Then Worksheets(r).PrintOut ActivePrinter:="Send To OneNote 2016" End If Next rEnd Sub

如果使用默认打印机就不需要指定打印机名称为"Send To OneNote 2016"，或者指定为你自己的打印机。

Answer 2

你好，我也遇到这样的情况，请问您得到解决了吗，可否复制一下该代码，谢谢您~

Answer 3

得有具体的文档才好编程