自动每页添加外边框加粗

边城¤浪子 · 发表于 2023-4-12 09:22

怎么实现自动每页添加外边框加粗

ykcbf1100 · 发表于 2023-4-12 10:08

录制一个宏，改一下就行了。

边城¤浪子 · 发表于 2023-4-18 10:13

ykcbf1100 发表于 2023-4-12 10:08
录制一个宏，改一下就行了。

能麻烦你给个案例吗，自己不知道怎么判定打印每一页的边界

tanglf188 · 发表于 2023-4-18 10:36

根据自己的需要设定每页的范围，再插入分页符、框线、行列距等，你这大概一问也只能大概一答了，最好自己上传个模拟表格说话。

无雨谷 · 发表于 2023-4-18 10:54

参考一下，自己改改
Sub 添加边框()
Dim sh As Worksheet
For Each sh In Sheets
sh.Range("A1").CurrentRegion.Borders.LineStyle = 1
Next
End Sub

边城¤浪子 · 发表于 2023-4-18 11:47

tanglf188 发表于 2023-4-18 10:36
根据自己的需要设定每页的范围，再插入分页符、框线、行列距等，你这大概一问也只能大概一答了，最好自己上 ...

帮我看下，每页打印需要外边框加粗，表格还有可能更长

tanglf188 · 发表于 2023-4-18 16:18

边城¤浪子发表于 2023-4-18 11:47
帮我看下，每页打印需要外边框加粗，表格还有可能更长

大概写了一下，有问题请留言。

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

[求助] 自动每页添加外边框加粗