2
A
回答
2
看看是否有like this是你在找什麼。你只需要建立一個循環,選擇所有片材,並使用該select false
方法上除第一次。
這是我拼湊起來(我沒有廣泛的測試,和我的VBA是有點生疏)
Sub loopandprint()
Dim ws As Worksheet
Dim i As Integer
i = 0
For Each ws In ActiveWorkbook.Worksheets
If (i = 0) Then
ws.Select
Else
ws.Select False
End If
i = i + 1
Next ws
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
相關問題
- 1. VB腳本如果聲明 - 打開Excel工作簿
- 2. 打印Excel工作表/工作簿
- 3. 打破Excel工作簿中的所有鏈接
- 4. 腳本變更多個Excel工作簿
- 5. 腳本打印所有零
- 6. 在Excel工作簿中迭代AppleScript中的所有工作表
- 7. Google Apps腳本重命名工作簿上的第二張工作簿
- 8. 將多張精裝excel工作簿中的數據提取到一張單張工作簿中
- 9. 如何從Excel工作簿中打開AutoIt腳本,然後在父工作簿關閉之後如何打開?
- 10. Excel宏關閉所有打開的工作簿
- 11. 查找所有打開的Excel工作簿
- 12. 使用Access 2010 VBA列出所有打開的Excel工作簿
- 13. 將數據從一個工作簿複製到Excel中的新工作簿VB
- 14. Excel VBA中打開的工作簿
- 15. 使用Marshal.GetActiveObject在空白的Excel工作簿中打開Excel工作簿
- 16. Excel VB腳本
- 17. VB腳本excel
- 18. 不打印在Excel工作表中的所有列值的Java
- 19. EXCEL - 當打開Excel工作簿
- 20. Excel宏:遍歷工作簿並打印每個工作簿中的單個工作表
- 21. VSTO - 中止打開Excel工作簿
- 22. 如何在MATLAB中向excel工作簿添加超過3張工作簿
- 23. EXCEL VBA關閉所有打開的外部Excel文件的工作簿連接
- 24. 關閉所有的excel工作簿(excel的幾個實例可能會打開)
- 25. 轉換Excel的VBA一張工作表到工作簿寬
- 26. 腳本與多個Excel工作簿並行工作
- 27. Excel vb腳本崩潰當試圖打印或清除表
- 28. 遍歷一個Excel工作表的所有宏工作簿
- 29. Excel的VBA:印張代碼不工作
- 30. 其他版本的Excel中的JET/ACE打開工作簿
請參閱我的編輯您的回覆 – jonsca 2011-04-17 12:07:56