请问如何根据<em>Excel</em>表里指定的名称，通过宏批量打印同一文件...-excel

代码来：

sub 宏1()
    dim p,n,st as worksheet
    p="c:\" '文件所源在位置，你可能需要百修改，没必度须是\
    n=dir(p & "&.xls*")
    do while n<>""
        with workbooks.open(p & n)
            for each st in .sheets
                if st.name="施工知记道录" or st.name="施工记录 (2)" or st.name="施工记录 (3)" then st.printout
            next st
            .close
        end with
        n=dir
    loop
end sub

示例代码如下抄：

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

如果使用默认打印机就不需要指定打zhidao印机名称为"Send To OneNote 2016"，或者指定为你自己的打印机。
同一个文件里有多个扫描的图片文件，例如A公司，B公司，C公司……，请问能否根据Excel表里指定的名称，通过宏批量打印相对应名称的图片文什？

示例代码如下：

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 r
End Sub

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