- Sub 打印13579()
- arr = Array("00", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10")
- For i = 1 To 9 Step 2
- x = arr(i)
- Sheets(x).PrintOut
- Next
- End Sub
- Sub 打印246810()
- arr = Array("00", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10")
- For i = 2 To 10 Step 2
- x = arr(i)
- Sheets(x).PrintOut
- Next
- End Sub
- Sub 打印1到5()
- arr = Array("00", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10")
- For i = 1 To 5
- x = arr(i)
- Sheets(x).PrintOut
- Next
- End Sub
复制代码 依此类推。。。。。。。。。。 |