在Excel工作表1中添加一个按钮,来打印工作表4、5、6
发布网友
发布时间：2023-08-03 08:13
共1个回答
热心网友
时间：2024-02-06 14:37
If Worksheets("1").Cells(6, "B") = "是" Then '如果表“1”的B6单元格为“是”
Sheets(Array("4", "5", "6")).PrintOut '打印表“4”“5”“6”
ElseIf Worksheets("1").Cells(6, "B") = "否" Then '如果表“1”的B6单元格为“否”
Sheets(Array("4", "5")).PrintOut '打印表“4”“5”
End If
End Sub
代码奉上，自己根据需要修改吧
使用条件：
1、必须存在表名为1、4、5、6的sheet
2、默认使用上次的打印机
热心网友
时间：2024-02-06 14:37
If Worksheets("1").Cells(6, "B") = "是" Then '如果表“1”的B6单元格为“是”
Sheets(Array("4", "5", "6")).PrintOut '打印表“4”“5”“6”
ElseIf Worksheets("1").Cells(6, "B") = "否" Then '如果表“1”的B6单元格为“否”
Sheets(Array("4", "5")).PrintOut '打印表“4”“5”
End If
End Sub
代码奉上，自己根据需要修改吧
使用条件：
1、必须存在表名为1、4、5、6的sheet
2、默认使用上次的打印机
