多表打印

莫然123

请问一下，有没有办法我只选择shteet4-shtee6表格打印第一到第三页的内容，可以一次性打印出来，其他表格不打印，这样可以用什么方法实现吗？

取经人

看下在图中设置了，应用工作薄

莫然123

取经人 发表于 2023-4-28 08:56
看下在图中设置了，应用工作薄

这样我设置了一下，但这样设置的话，会全部整个工作薄中的表都会打了，我几个是不选择打的，

135294560056

有一段遍历代码，如果你稍懂一点点代码知识，则可以参照这段代码，补全后即可操作!

1. Sub 遍历文件夹()
   
2.     '此代码为框架代码，只打开本文件所在位置的文件夹中所有的xls文件（包含各文件内全部工作表）、然后再关闭文件，作为示范模拟参考。
   
3.     '------------------------------------------------------------------
   
4.     Dim arr() '定义数组
   
5.     bkName = ThisWorkbook.Name '获取当前文件名，就是存放这个代码的excel文件
   
6.     pth = ThisWorkbook.Path '获取路径，就是存放这个代码的excel文件所在文件夹路径
   
7.     bkNames = Dir(pth & "" & "*.*") '定义文件名变量，就是其他需要遍历的excel文件
   
8.     Do Until bkNames = "" '遍历文件直到空
   
9.         If bkNames <> bkName And bkNames Like "*.xls*" Then '判断，不是本文件且属于电子表格则执行下面语句
   
10.             i = i + 1
    
11.             ReDim Preserve arr(1 To i) '重新定义数组
    
12.             arr(i) = bkNames  '将文件名写入数组
    
13.         End If
    
14.         bkNames = Dir '查看下一个文件
    
15.     Loop
    
16.     For k = 1 To UBound(arr) '对数组进行循环
    
17.         Workbooks.Open pth & "" & arr(k) '打开数组内第一个名称的文件
    
18.         For Each sh In Sheets '循环文件内的表格
    
19.             sh.Select '选择表格,激活后可对选中的表进行操作
    
20.             '请在这里面输入需要对打开的表所执行的操作代码
    
21.             '示例:[a1] = 1
    
22.             '请在这里面输入需要对打开的表所执行的操作代码
    
23.         Next
    
24.         Workbooks(arr(k)).Close False '关闭数组内第一个名称的文件
    
25.     Next
    
26. End Sub

复制代码

取经人

莫然123 发表于 2023-4-28 10:31
这样我设置了一下，但这样设置的话，会全部整个工作薄中的表都会打了，我几个是不选择打的，

看图，上面红字1和3，是设置页的，就是打印几个工作表，那里输入1和3，表示打印第一到3页