介绍
不打印工作簿中的所有工作表，只打印指定的名称的工作表
打印工作表名称中包含单价两个字的工作表
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
