设置每个工作表的份数

我有一个结合了多个报告的工作簿。 目前，我正在使用一段vba代码来确定基于每个工作表中的单元格值打印哪些工作表。

有没有办法添加到现有的代码来设置每个工作表打印每个工作表特定的次数？ 例如，打印Sheet1 2次，打印Sheet2 1次，依此类推，在该工作表上使用单元格引用。 代码

我到目前为止打印的是：

Sub PrintSheets() Dim ws As Worksheet Dim arrWS() Dim I As Long For Each ws In Worksheets If ws.Range("A1") = "print" Then ReDim Preserve arrWS(I) arrWS(I) = ws.Name I = I + 1 End If Next ws Sheets(arrWS).PrintOut End Sub 

我已经尝试了几个不同的项目，但是他们每个看一张表来确定一切打印的次数，而不是让每个页面都有自己的特定数量的副本。

Answer 1

尝试这个

 Sheets(arrWS).PrintOut Copies:=Range("A2").Value 

Answer 2

看了奥马尔的回答和我以前的回答，我想你根本不需要arrays。 在单元格A2中放置要在每张纸上打印的份数：

 Sub PrintSheets() Dim ws As Worksheet For Each ws In Worksheets If ws.Range("A1") = "print" Then ws.PrintOut Copies:= ws.Range("A2").Value2 End If Next ws End Sub