0
A
回答
2
Sub PrintSheets()
Dim cell As Range
For Each cell In Sheet1.Range("A1:A10") '''(change this)
If cell.Offset(0, 1).Value <> "" Then
Sheets(cell.Value).PrintOut
End If
Next cell
End Sub
1
如何使用紙張的屬性來選擇要打印的紙張。
像標籤顏色 - 易於設置和一個很好的視覺指標。
Sub PrintSheets()
Dim sb As String
sb = Application.StatusBar
If sb = "False" Then sb = ""
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If 0 < ws.Tab.ColorIndex Then
Application.StatusBar = "Printing " & ws.Name & " ..."
ws.PrintOut
End If
Next
Application.StatusBar = sb
End Sub
相關問題
- 1. 如何在Excel加載項中打印範圍或工作表?
- 2. 如何在列表中打印列表?
- 3. 用COM接口打印Excel工作表
- 4. 按名稱打印Excel工作表
- 5. 如何在列中打印列表?
- 6. 如何在不同的動態Excel工作表中打印java輸出
- 7. 更換在Excel工作表的列表
- 8. 使用VBA宏打印Excel工作表中的選定頁面
- 9. 在97-2003工作表上打開特定的工作表Excel
- 10. 如何在Excel 2002中將一組工作表打印到PDF中?
- 11. 如何在Excel工作表
- 12. EPPlus Excel導出,如何從列表中打印標題列
- 13. 在C中打開MS Excel工作表#
- 14. 如何打印值列表?
- 15. 如何打印Python表中的2D列表,如C表
- 16. 列表的打印表示
- 17. 打印列表中的Java
- 18. 在python中打印列表
- 19. 如何在ETL中查找csv(Excel)工作表的列數?
- 20. 如何在Excel的每個工作表中搜索特定列
- 21. 如何在Excel工作表中搜索?
- 22. 強制Excel將多個工作表打印爲單個作業
- 23. 如何在Common Lisp中打印列表爲矩陣列表
- 24. 打印的openpyxl格式工作表?
- 25. 如何在一份工作中並排打印多張表格?
- 26. 在Excel中打印後卸載表格
- 27. 在lapply中迭代時打印列表名稱不工作3.2
- 28. 打印列表
- 29. 打印列表,表(行,列)
- 30. Python列表打印列表