关于分页打印

horseman · 发表于 2022-10-24 10:32

需要按照不同的人员把资金明细单独打印，我现在的做法是设置好页面布局后，利用筛选功能将不同的人员单独打印，但是问题是如果人员很多，这个简单重复工作需要占用一个工作人员，是否可以插入分页符自动打印，求赐教微信图片_20221024103159.jpg

山菊花 · 发表于 2022-10-24 11:09

供参考。

3190496160 · 发表于 2022-10-24 11:13

Sub 批量打印()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("打印模板")
r = .Cells(Rows.Count, 2).End(xlUp).Row
ar = .Range("b2:b" & r)
For i = 3 To UBound(ar)
      If Trim(ar(i, 1)) <> "" Then
         d(Trim(ar(i, 1))) = ""
      End If
Next i
For Each k In d.keys
      .AutoFilterMode = False
      .Rows(2).AutoFilter
      .Range("a2:i" & r).AutoFilter Field:=2, Criteria1:=k, Operator:=xlAnd
      .PrintOut
Next k
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2022-10-24 11:14

代码调佣筛选功能实现批量打印

明细.rar (92.91 KB, 下载次数: 10)

wkq235819 · 发表于 2022-10-24 13:52

分类汇总

horseman · 发表于 2022-10-26 14:37

山菊花发表于 2022-10-24 11:09
供参考。

编译错误：属性的使用无效

熊文来 · 发表于 2022-10-29 14:57

3190496160 发表于 2022-10-24 11:14
代码调佣筛选功能实现批量打印

文件写的很好，看看能不能把每个人的生成一个工作表，放在工作簿里面？或者把每个人的再另外生成一个工作簿呢？

chengyunpan · 发表于 2022-10-29 22:14

用批量打印软件实现

3190496160 · 发表于 2022-10-30 08:29

熊文来发表于 2022-10-29 14:57
文件写的很好，看看能不能把每个人的生成一个工作表，放在工作簿里面？或者把每个人的再另外生成一个工 ...

拆分为工作表或者拆分为工作簿，可以去我的主题里面找找，几个灵活拆分工具，一定有一个适合你的

熊文来 · 发表于 2022-10-30 09:19

3190496160 发表于 2022-10-30 08:29
拆分为工作表或者拆分为工作簿，可以去我的主题里面找找，几个灵活拆分工具，一定有一个适合你的

我也有找过，但是没找到就针对这个文件你可以再弄弄吗？

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

[求助] 关于分页打印