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

excel_321 · 发表于 2014-11-17 13:26

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

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

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

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

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

复制代码

BEYOND6161 · 发表于 2014-11-17 14:04

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

感谢前辈指导

yangyangzhifeng · 发表于 2014-11-17 19:06

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

Samsea · 发表于 2014-11-18 12:36

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 · 发表于 2017-5-26 17:09

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

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

		自动登录	找回密码
密码			免费注册

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

最新热点 /1