VBA批量打印可见工作表

13505817205

如何用VBA批量打印EXCEL工作簿中所有可见的工作表（部分工作表有可能存在隐藏情况）

chxw68

1. Sub test()
   
2.   Dim ws As Worksheet
   
3.   For Each ws In Worksheets
   
4.     If ws.Visible = xlSheetVisible Then
   
5.       ws.PrintOut
   
6.     End If
   
7.   Next
   
8. End Sub
   

复制代码

13505817205

chxw68 发表于 2018-1-23 22:01

谢谢大佬，再问一下如何跳过第一页之后打印呢？ 因为第一页是说明

chxw68

1. Sub test()
   
2.   Dim ws As Worksheet
   
3.   For Each ws In Worksheets
   
4.     If ws.Visible = xlSheetVisible And ws.Index <> 1 Then
   
5.       ws.PrintOut
   
6.     End If
   
7.   Next
   
8. End Sub
   
9. 
   

复制代码

chxw68

1. Sub test()
   
2.   Dim ws As Worksheet
   
3.   For Each ws In Worksheets
   
4.     If ws.Visible = xlSheetVisible And ws.Index<>1 Then
   
5.       ws.PrintOut
   
6.     End If
   
7.   Next
   
8. End Sub
   

复制代码

chxw68

这么简单的几句代码，不知道哪句触动了敏感词汇。

wmqz.130

1. Sub test()
   
2.   Dim ws As Worksheet
   
3.   For Each ws In Worksheets
   
4.     If （ws.Visible = xlSheetVisible）and (ws.name<>"你第一个表名" )Then
   
5.       ws.PrintOut
   
6.     End If
   
7.   Next
   
8. End Sub
   

复制代码

wmqz.130

chxw68 发表于 2018-1-23 22:12
这么简单的几句代码，不知道哪句触动了敏感词汇。

同样是22.12发表的，你跑我前面去了。。。

chxw68

wmqz.130 发表于 2018-1-23 22:16
同样是22.12发表的，你跑我前面去了。。。

没事，你是秒杀！

miss_Me

chxw68 发表于 2018-1-23 22:21
没事，你是秒杀！

遇到你了，大侠。我昨天一个问题，今天看了你以前回复的代码解决了！借贵地感谢！