工作薄打印

莫然123

想某一人工作表不打印，其他的都打印，这样的话，要怎么设置才可以的啊

外块300

选择需要打印的第一张，然后按住 Shift 键，鼠标点击最后一张，按打印即可；按住 Ctrl 可以一张一张的选择或取消。

莫然123

外块300 发表于 2022-4-23 10:18
选择需要打印的第一张，然后按住 Shift 键，鼠标点击最后一张，按打印即可；按住 Ctrl 可以一张一张的选择 ...

有没有什么方法可以一直不打印一个表，因为我有一份表是数据源，内容很多，也都不需要打印的

外块300

Sub 打印()
For i = 1 To Sheets.Count
If Sheets(i).Name <> "数据源" Then
Range(Sheets(i).Range("A1"), Sheets(i).[A65536].End(xlUp)(1, 9)).PrintOut
End If
Next
End Sub
'(1, 9) 是打印第一列到第九列的内容，可以变更；根据不需要打印的表格名称更改。