一个工作薄里有几百个工作表，如何指定打印工作表

excel_321

BEYOND6161 发表于 2014-11-17 13:16
提示下标越界
我把附件发上来 麻烦您帮我看看？

把Sheets("目录")改成你实际的表名就好了

excel_321

BEYOND6161 发表于 2014-11-17 13:18
这是附件 麻烦您看看

1. Sub test()
   
2.     Dim st
   
3.     n = Sheets("目录").[c65536].End(3).Row
   
4.     Arr = Sheets("目录").Range("c2:c" & n)
   
5.     For i = 1 To UBound(Arr)
   
6.         Sheets(CStr(Arr(i, 1))).PrintOut
   
7.     Next
   
8. End Sub
   

复制代码

BEYOND6161

excel_321 发表于 2014-11-17 13:28

感谢前辈 指导

yangyangzhifeng

打印份数，怎么处理？ 没填的是打印还是不打印？

Samsea

BEYOND6161 发表于 2014-11-17 15:18
这是附件 麻烦您看看

Sub test()
  Dim St As String
   With Sheets("目录")
    For i = 2 To .[C65536].End(3).Row
       If .Cells(i, 4) <> "" Then
         St = .Cells(i, 3)
         Sheets(St).PrintOut Copies:=.Cells(i, 4), Collate:=True
'        Sheets(St).PrintPreview
       End If
    Next
    End With
End Sub

reiliu

Samsea 发表于 2014-11-18 12:36
Sub test()
  Dim St As String
   With Sheets("目录")

谢谢大神，你也解决了我的问题