请问批量打印两个标题之间内容

xiaoben228 · 发表于 2023-1-11 14:23

各位老师好：
请教一下，想批量打印如图这种格式的表，一张张打印出来，能怎么做呢，是要用VBA吗，代码思路应该是怎么样的？规律就是按每天的日期打一张表。原来表格是只有一个标题，我批量在每个日期前加一个标题。但不知道怎么设置批量打印。
求各位大佬帮忙。谢谢

微信图片_20230111141917.png

3190496160 · 发表于 2023-1-11 14:35

没有必要加那么多的标题吧，直接vba代码调用自动筛选，按日期筛选打印即可、

xiaoben228 · 发表于 2023-1-11 14:54

3190496160 发表于 2023-1-11 14:35
没有必要加那么多的标题吧，直接vba代码调用自动筛选，按日期筛选打印即可、

之前不知道怎么做，就加了很多标题，我试下你这个，谢谢

grf1973 · 发表于 2023-1-11 15:42

选择日期后连续打印。
目前代码是预览，要打印改成printout即可。

半百 · 发表于 2023-1-11 16:00

在每个标题前插入分页符

3190496160 · 发表于 2023-1-11 17:21

Sub 批量打印()
Application.ScreenUpdating = False
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With ActiveSheet
.AutoFilterMode = False
r = .Cells(Rows.Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "数据表为空！": End
ar = .Range("a1:a" & r)
For i = 2 To UBound(ar)
      If Trim(ar(i, 1)) <> "" Then
         If IsDate(ar(i, 1)) Then
            d(ar(i, 1)) = ""
         End If
      End If
Next i
For Each k In d.keys
      .Range("a1:i" & r).AutoFilter Field:=1, Criteria1:=Array(2, k) ''精确到年0，到月1，到日2, Operator:=xlAnd
      .PrintOut
      '.PrintPreview
Next k
End With
Set d = Nothing
Application.ScreenUpdating = True
MsgBox "打印完毕！"
End Sub

3190496160 · 发表于 2023-1-11 17:22

微信账单.rar (25.1 KB, 下载次数: 1)

3190496160 · 发表于 2023-1-11 17:23

xiaoben228 · 发表于 2023-1-11 19:42

grf1973 发表于 2023-1-11 15:42
选择日期后连续打印。
目前代码是预览，要打印改成printout即可。

谢谢，学习了

xiaoben228 · 发表于 2023-1-11 19:44

半百发表于 2023-1-11 16:00
在每个标题前插入分页符

谢谢，我试下这种方法

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

[求助] 请问批量打印两个标题之间内容

评分