请问excel表格，如何用宏指定打印机，并批量打印指定名称工作表？

发布网友发布时间：2022-05-02 00:18

共1个回答

热心网友时间：2023-10-08 19:58

示例代码如下：

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"，或者指定为你自己的打印机。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com