每页页脚动态引用单元格数据

lxzxmpx · 发表于 2024-4-26 15:57

各位前辈老师，因打印会计账簿，如何设置每页不同的页脚（动态引用单元格数据），，引用J列单元格中的数据。各位前辈用VBA能实现吗，谢谢了！第1页.png

表格设置每页不同页脚.rar (12.9 KB, 下载次数: 8)

补充内容 (2024-5-3 20:18):
用VBA实现，每页页脚引用不同单元格中的数据

lxzxmpx · 发表于 2024-4-28 15:27

哪个高手帮帮忙了

313667354 · 发表于 2024-4-28 16:23

lxzxmpx 发表于 2024-4-28 15:27
哪个高手帮帮忙了

自定义页边距可设置。

lxzxmpx · 发表于 2024-4-28 16:56

313667354 发表于 2024-4-28 16:23
自定义页边距可设置。

谢谢你，有时每页会显示不同的页脚，要引用动态的单元格数据

lxzxmpx · 发表于 2024-4-29 19:48

哪位大师，帮下小弟忙了

lxzxmpx · 发表于 2024-5-2 19:15

各位大佬谁来想想办法啊

yynrzwh · 发表于 2024-5-2 21:37

excel不支持动态设置页脚吧

折中的方法是设置动态打印区域，如本例：

Sub 宏1()

n = 35 '每页行数，不包括表头
lr = Cells(Rows.Count, 1).End(3).Row
For i = 4 To lr Step n
With ActiveSheet.PageSetup
      .PrintTitleRows = "$3:$3"
      .PrintArea = "$A" & i & ":$H" & i + n - 1
      .CenterFooter = "&9第 &P 页，共 &N 页"
      .RightFooter = Range("J" & i)
End With
ActiveSheet.PrintOut
Next
End Sub

lxzxmpx · 发表于 2024-5-3 20:18

本帖最后由 lxzxmpx 于 2024-5-3 20:21 编辑

表格设置每页不同页脚.zip (14.78 KB, 下载次数: 10)

用VBA实现，每页页脚引用不同单元格的数据

lxzxmpx · 发表于 2024-5-6 20:08

哪个大师帮下忙了

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

[求助] 每页页脚动态引用单元格数据