用PrintOut如何忽略掉隐藏的工作表而只打印当前正在录入的工作表同时还要实现批量打印

poche12345 · 发表于 2015-9-25 13:35

本帖最后由 poche12345 于 2015-9-30 22:56 编辑

同一文件夹下有多个工作薄，每个工作薄里面又有多个工作表（包含隐藏的），如下图，
0命名.JPG

我已经把不需要显示的工作表隐藏起来了，现在只想批量打印这些当前显示的工作表，而不打印隐藏的。
具体说就是，我需要打印：
1工作薄1中的工作表“4”
2工作薄2中的工作表“5”
3工作薄3中的工作表“1”
4工作薄4中的工作表“4”
5工作薄5中的工作表“主页”
请问这样用代码如何实现？

我的代码是连同隐藏的一起打印，这不是我所需要的，求高人指导

上附件：

1.rar (42.1 KB, 下载次数: 8)

鼻涕可长了 · 发表于 2015-9-25 13:42

本帖最后由鼻涕可长了于 2015-9-25 14:08 编辑

没有看你的代码
但是你循环的时候判断一下Sheet的Visibal属性
for i = 1 to worksheets.count
   if worksheets(i).visible=xlSheetVisible then
      你的打印代码
   end if
next

金樽空对月 · 发表于 2015-9-25 14:40

这个有点深度，等待高人来帮助呀，先顶起{:35:}

poche12345 · 发表于 2015-9-26 06:45

本帖最后由 poche12345 于 2015-9-30 09:00 编辑

没有看你的代码
但是你循环的时候判断一下Sheet的Visibal属性
for i = 1 to worksheets.count
   if worksheets(i).visible=xlSheetVisible then
      你的打印代码
   end if
next

貌似不行哦，刚开始接触VBA，搞不靛

我的隐藏代码是：

Dim sh As Worksheet
For Each sh In Sheets
If sh.Name <> ActiveSheet.Name Then sh.Visible = xlSheetHidden
Next

复制代码

poche12345 · 发表于 2015-9-27 11:59

在线等，急
两天了，还没看到高人指点
自己顶一个
希望高人赶紧出现

poche12345 · 发表于 2015-9-30 08:44

本帖最后由 poche12345 于 2018-3-29 08:39 编辑

2015-9-30 09:04
哎，求助了好几天都无人问津。
还是靠自己解决了
删除循环语句就解决了
晕

2018-3-29 08:39
由于现在没有权限了，不能跟帖

现在此修改附上正确代码如下，楼下朋友可以此作为参考：

Sub 批量打印()
Dim p, f, sh
p = ThisWorkbook.Path & "" '提取当前工作薄路径
f = Dir(p & "*.xls") '提取目录指定文件类型为xls
Do While f <> "" '排除假表
If f <> ThisWorkbook.Name Then '排除前工作薄
Workbooks.Open (p & f) '打开f
ActiveSheet.PrintOut '打印工作表
Workbooks(f).Close False '闭卷当前 f 工作薄,false=不保存
End If
f = Dir '下一工作薄
Loop
'循环完以后开始打印当前工作薄
ActiveSheet.PrintOut '打印工作表
End Sub

复制代码

hulala2016 · 发表于 2016-4-13 22:48

方便分享下最终漂亮的模板吗？

poche12345 · 发表于 2019-6-5 08:03

Sub 批量打印()
Dim p, f, sh
p = ThisWorkbook.Path & "" '提取当前工作薄路径
f = Dir(p & "*.xls") '提取目录指定文件类型为xls
Do While f <> "" '排除假表
If f <> ThisWorkbook.Name Then '排除前工作薄
Workbooks.Open (p & f) '打开f
ActiveSheet.PrintOut '打印工作表
Workbooks(f).Close False '闭卷当前 f 工作薄,false=不保存
End If
f = Dir '下一工作薄
Loop
'循环完以后开始打印当前工作薄
ActiveSheet.PrintOut '打印工作表
End Sub

复制代码

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

用PrintOut如何忽略掉隐藏的工作表而只打印当前正在录入的工作表同时还要实现批量打印

相关帖子

评分