打印前检查固定的一个单元格内容来判断和选择工作表自动打印

shpcb168

打印前检查OUT工作表内的产品型号的输入来判断和自动选择工作表进行打印，
如果out工作表里的产品型号单元格输入的是8b001001A0或6b001005A0或6V002009A0,所有工作表打印，
如不是这三个型号，则SDOC不印，其它工作表全部打印。

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     If InStr("或8b001001A0或6b001005A0或6V002009A0或", "或" & Sheets("out").[b3] & "或") = 0 Then
   
4.         For Each sht In Sheets
   
5.             If sht.Name <> "SDOC" Then
   
6.                 sht.UsedRange.PrintOut
   
7.             End If
   
8.         Next sht
   
9.     Else
   
10.         For Each sht In Sheets
    
11.             sht.UsedRange.PrintOut
    
12.         Next sht
    
13.     End If
    
14.     Application.ScreenUpdating = True
    
15. End Sub

复制代码

liulang0808

欢迎加入eh
附件内容供参考

shpcb168

好像不行，只能打印单个的工作表，不能自动把整个工作簿全部打印出来。
能不能再加个功能，如果是输入8b001001A0或6b001005A0或6V002009A0这三项的中一项，点打印时弹出
窗口提示，此产品需要提供SDOC，再点OK自动打印整个工作簿

shpcb168

liulang0808 发表于 2017-10-22 21:40
欢迎加入eh
附件内容供参考

版主在吗，这个问题能帮忙解决吗？感谢！

liulang0808

shpcb168 发表于 2017-10-23 11:29
好像不行，只能打印单个的工作表，不能自动把整个工作簿全部打印出来。
能不能再加个功能，如果是输入8b00 ...

目前的代码，可以遍历所有的工作表，符合条件的进行打印的
楼主的需求，可以看看msgbox
增加一个提示判断的

或者使用自制窗体处理