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

BEYOND6161

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

BEYOND6161

如图 我要指定打印红色框内的SHHET  VBA怎么搞  求教

qy1219no2

按住【CTRL】键，鼠标点选工作表标签，然后执行打印即可

yangyangzhifeng

BEYOND6161 发表于 2014-11-17 10:13
如图 我要指定打印红色框内的SHHET  VBA怎么搞  求教

试试看

1. Sub test()
   
2.     Dim st
   
3.     For Each st In Split("12345,87793,59992", ",")
   
4.         Sheets(st).PrintOut
   
5.     Next
   
6. End Sub
   

复制代码

BEYOND6161

yangyangzhifeng 发表于 2014-11-17 10:29
试试看

如果有很多个工作表要打印  我要一个个把表名 敲进去吗
假如我建一个SHEEt目录 目录就是我要打印的工作表名  

BEYOND6161

假如做成这样 VBA 怎么写  求教

yangyangzhifeng

BEYOND6161 发表于 2014-11-17 10:34
如果有很多个工作表要打印  我要一个个把表名 敲进去吗
假如我建一个SHEEt目录 目录就是我要打印的工作表 ...

我给你的只是范例，你要自己修改，你没有附件，光一个图片，怎么写代码？关键就是：循环+Printout方法

excel_321

BEYOND6161 发表于 2014-11-17 10:46
假如做成这样 VBA 怎么写  求教

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(Arr(i, 1)).PrintOut
   
7.     Next
   
8. End Su

复制代码

BEYOND6161

excel_321 发表于 2014-11-17 12:25

提示下标越界
我把附件发上来 麻烦您帮我看看？

BEYOND6161

这是附件 麻烦您看看