Excel求助批量导入固定模板实现批量打印（分页打印）的方法

shear120 · 发表于 2017-7-19 11:12

各位大神：由于平时来源数据有点多，每次复制粘贴，还要修改单号，很麻烦，能否通过自动化实现如下功能：
1、每张表只能导入8行数据，依顺序导入固定模板中的固定行，最后一张表允许留空行，其他都是满行。
2、单号按打印页数递增（170716-0001,0002,0003…)
3、打印机老是出毛病，如果能生成可预览表格（表）最好，可以实现自由选取打印页面（表）。

求救各位！

shear120 · 发表于 2017-7-19 11:29

求助0000000

朱荣兴 · 发表于 2017-7-19 11:44

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2017-7-19 11:45

提示: 作者被禁止或删除内容自动屏蔽

鄂龙蒙 · 发表于 2017-7-19 12:52

Sub 连续打印()
Dim arr, brr(1 To 8, 1 To 10), i%, j%, n, m
arr = Sheet1.Range("A1").CurrentRegion
For i = 2 To UBound(arr)
n = n + 1
For j = 1 To 10
brr(n, j) = arr(i, j)
Next j
If n = 8 Or i = UBound(arr) Then
m = m + 1
With Sheet2
.[a8:j15] = ""
.[a8].Resize(n, 10) = brr
.[j4] = Format(Now, "yyyymmdd") & Format(m, "000")
.[e20] = "第 " & m & " 页"
MsgBox "打印？"
' .[a1:j20].PrintOut
End With
n = 0
End If
Next i
End Sub

复制代码

excelholla · 发表于 2018-5-23 10:18

太赞了，我根据朱荣兴版主的xlsm完成了400多张图纸目录的批量制作，赞赞赞！

shear120 · 发表于 2019-1-25 10:20

鄂龙蒙发表于 2017-7-19 12:52

正是我想要的，代码简洁，直观，nice

mawenting11177 · 发表于 2019-10-19 15:00

朱荣兴发表于 2017-7-19 11:45

老师可以帮我看看我的这个模板怎么解决呢

mawenting11177 · 发表于 2019-10-19 15:14

老师可以帮我看看我的这个怎么把表一的数据通过单据号选择分页打印，每一页要有小计，最后一页有小计和合计

mawenting11177 · 发表于 2019-10-20 19:31

朱荣兴发表于 2019-10-19 23:32
加我QQ具体沟通吧

老师号码多少啊

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

[求助] Excel求助批量导入固定模板实现批量打印（分页打印）的方法

评分

最新热点 /1

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-7-19 11:44 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-7-19 11:45 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报