介绍

不打印工作簿中的所有工作表，只打印指定的名称的工作表

打印工作表名称中包含单价两个字的工作表

Sub autoPrint()
    Dim Wb As Workbook
    Dim Ws As Worksheet
    
    Set Wb = ActiveWorkbook
    For Each Ws In Wb.Sheets

        If InStr(Ws.Name, "单价") <> 0 Then  '可以在这边设置条件
            Ws.PrintOut
        End If
             
    
    Next Ws
    
End Sub