查看: 589|回复: 6
如何批量打印EXCEL表单？ 大神帮帮我，谢谢！
阅读权限20
在线时间 小时
& & & & & & & &
这里有份EXCEL文件，里面有SHEET1和SHEET2，现在SHEET1（报告台帐）是份表单，相应的数据，SHEET2（报告台格式）里面是需要打印的东西。在SHEET1里面用第三行的数值做变量来控制提取SHEET2里的数据。每次都要把SHEET1里的数据每行依次复制到第三行，再点击sheet2依次打印，或者点击& &依次存为PDF。觉得很麻烦，主要是里面年有个图表，不然用word做个格式，与excel连接邮件合并，就可以轻松搞定，如果一次一次打印很麻烦，请问有什么快捷的方法吗？例如用函数或者宏来实现。十分感谢！！！！
(17.23 KB, 下载次数: 0)
18:35 上传
(106.75 KB, 下载次数: 0)
18:35 上传
SHEET1（报告台帐）
(31.84 KB, 下载次数: 0)
18:35 上传
SHEET2（报告台格式）
18:35 上传
点击文件名下载附件
94.35 KB, 下载次数: 17
阅读权限30
在线时间 小时
报告格式 用 index 函数从 台账中取数，如index(数据，n1,1),其中 数据为台账数据区域，n1是报告格式N1的值（相当于变量）。当 N1发生变化时，报告格式里的数据就自动发生变化了。
再设置打印代码，每打印一次 N1自动加1，这样就行实现连续打印表单了。
阅读权限90
在线时间 小时
使用VBA直接引用数。因此，把报告台账中的重复标题行删除了。
Sub BatPrint()
arr = Sheet2.UsedRange
With Sheet1
For i = 3 To UBound(arr)
& && &&&.Cells(2, 12) = arr(i, 1) '序号
& && &&&.Cells(4, 2) = arr(i, 3) '委托单位
& && &&&.Cells(5, 2) = arr(i, 4) '工程名称
& && &&&.Cells(6, 2) = arr(i, 5) '施工部位
& && &&&.Cells(5, 7) = arr(i, 7) '委托编号
& && &&&.Cells(4, 7) = arr(i, 8) '报告编号
& && &&&.Cells(7, 7) = arr(i, 11) '报告日期
& && &&&.Cells(9, 2) = arr(i, 12) '填料名称
& && &&&.Cells(10, 9) = arr(i, 14) '填土厚度
& && &&&.Cells(10, 2) = arr(i, 15) '填土层次
& && &&&.Cells(10, 5) = arr(i, 17) '标高
& && &&&.Cells(7, 2) = arr(i, 19) '掺灰种类
& && &&&.Cells(6, 7) = arr(i, 22) '压实系数记录编号
& && &&&.Cells(9, 5) = arr(i, 23) '压实度测定方法
& && &&&.Cells(12, 1) = arr(i, 24) '测点编号1
& && &&&.Cells(13, 1) = arr(i, 25) '测点编号2
& && &&&.Cells(14, 1) = arr(i, 26) '测点编号3
& && &&&.Cells(12, 3) = arr(i, 27) '测点位置
& && &&&.Cells(13, 3) = arr(i, 28) '测点位置
& && &&&.Cells(14, 3) = arr(i, 29) '测点位置
& && &&&.Cells(12, 5) = arr(i, 30) 'EDTA消耗量1
& && &&&.Cells(13, 5) = arr(i, 31) 'EDTA消耗量2
& && &&&.Cells(14, 5) = arr(i, 32) 'EDTA消耗量3
& && &&&.Cells(12, 7) = arr(i, 33) '灰剂量1
& && &&&.Cells(13, 7) = arr(i, 34) '灰剂量2
& && &&&.Cells(14, 7) = arr(i, 35) '灰剂量3
& && &&&.Cells(12, 9) = arr(i, 36) '单点评定1
& && &&&.Cells(13, 9) = arr(i, 37) '单点评定2
& && &&&.Cells(14, 9) = arr(i, 38) '单点评定3
& && &&&.Cells(9, 9) = arr(i, 39) '灰剂量规定值
& && &&&.Cells(25, 1) = arr(i, 40) '检测评定依据
& && &&&.Cells(25, 6) = arr(i, 41) '试验意见
& && &&&.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
& && && && &&&ThisWorkbook.Path & && & .Range(&L2&).Value & &.pdf&, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
& & Next
End With
End Sub复制代码
00:42 上传
点击文件名下载附件
93.88 KB, 下载次数: 27
阅读权限20
在线时间 小时
使用VBA直接引用数。因此，把报告台账中的重复标题行删除了。
在次非常感谢&&cbtaja&&的帮助，是我想要的结果！！！也感谢 Excelhome&&非常不错，帮我们这些菜鸟很大的忙 啊。。。
顺便再问一下，有时我只想打印，其中的某一行到某一行，咋整呢？最好在sheet2，整两个单元格，填进去行号，就可以实现。。。非常感谢
阅读权限90
在线时间 小时
在次非常感谢&&cbtaja&&的帮助，是我想要的结果！！！也感谢 Excelhome&&非常不错，帮我们这些菜鸟很大的 ...
双击报告台账中的序号或施工部位，即可打印当前行的报告。
(97.82 KB, 下载次数: 21)
18:30 上传
点击文件名下载附件
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
i = Target.Row
c = Target.Column
If i & 3 Then Exit Sub
If c && 1 And c && 5 Then Exit Sub
If MsgBox(&是否打印当前行的报告？&, vbYesNo) && vbYes Then Exit Sub
arr = Sheet2.UsedRange
With Sheet1
& & .Cells(2, 12) = arr(i, 1) '序号
& & .Cells(4, 2) = arr(i, 3) '委托单位
& & .Cells(5, 2) = arr(i, 4) '工程名称
& & .Cells(6, 2) = arr(i, 5) '施工部位
& & .Cells(5, 7) = arr(i, 7) '委托编号
& & .Cells(4, 7) = arr(i, 8) '报告编号
& & .Cells(7, 7) = arr(i, 11) '报告日期
& & .Cells(9, 2) = arr(i, 12) '填料名称
& & .Cells(10, 9) = arr(i, 14) '填土厚度
& & .Cells(10, 2) = arr(i, 15) '填土层次
& & .Cells(10, 5) = arr(i, 17) '标高
& & .Cells(7, 2) = arr(i, 19) '掺灰种类
& & .Cells(6, 7) = arr(i, 22) '压实系数记录编号
& & .Cells(9, 5) = arr(i, 23) '压实度测定方法
& & .Cells(12, 1) = arr(i, 24) '测点编号1
& & .Cells(13, 1) = arr(i, 25) '测点编号2
& & .Cells(14, 1) = arr(i, 26) '测点编号3
& & .Cells(12, 3) = arr(i, 27) '测点位置
& & .Cells(13, 3) = arr(i, 28) '测点位置
& & .Cells(14, 3) = arr(i, 29) '测点位置
& & .Cells(12, 5) = arr(i, 30) 'EDTA消耗量1
& & .Cells(13, 5) = arr(i, 31) 'EDTA消耗量2
& & .Cells(14, 5) = arr(i, 32) 'EDTA消耗量3
& & .Cells(12, 7) = arr(i, 33) '灰剂量1
& & .Cells(13, 7) = arr(i, 34) '灰剂量2
& & .Cells(14, 7) = arr(i, 35) '灰剂量3
& & .Cells(12, 9) = arr(i, 36) '单点评定1
& & .Cells(13, 9) = arr(i, 37) '单点评定2
& & .Cells(14, 9) = arr(i, 38) '单点评定3
& & .Cells(9, 9) = arr(i, 39) '灰剂量规定值
& & .Cells(25, 1) = arr(i, 40) '检测评定依据
& & .Cells(25, 6) = arr(i, 41) '试验意见
& & .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
& && && & ThisWorkbook.Path & && & .Range(&L2&).Value & &.pdf&, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
End With
End Sub
复制代码
阅读权限20
在线时间 小时
双击报告台账中的序号或施工部位，即可打印当前行的报告。
非常感谢，简直是神了，省去好多不必要的麻烦了。。。
阅读权限30
在线时间 小时
详细认真，学习了。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师百度拇指医生
&&&普通咨询
您的网络环境存在异常，
请输入验证码
验证码输入错误，请重新输入大家都在搜：
扫描二维码安装搜房网房天下APP
手机浏览器访问搜房网房天下
> > 问题详情
我在我的建了个别墅,可是不知道该怎么装修,求各位大神帮帮我,谢谢了。(有一楼、二楼和阁楼。)
浏览次数：0
回答被采纳后将共获得20
小伙伴们还在答题的路上，先看看下面这些内容吧~
来源：房天下
购买了别墅之后,要想住的舒适,装修方面肯定是关键所在。对于别墅来说,有一个的空间那就是阁楼,对很多业主来说,阁楼的用处有很大的不同,一套温馨美观的阁楼可以做成书房,可以抵挡卧室,可以作为阳台等等,所以,别墅装修之阁楼设计不容忽视。 []
浏览量：60
请选择房屋所在省份
装修总预算0万元
卫生间：0元
扫一扫下载房天下装修
扫码即获10000套家居设计案例
位提问人正在寻找答案
手机动态登录
请输入用户名/邮箱/手机号码！
请输入密码！
没有搜房通行证，
ask:2,asku:1,askr:472,askz:38,askzx0:981,ask0:0,RedisW:0askR:1,askD：1497 mz:nohit,askU:0,askT:0askA:1498
Copyright &
北京拓世宏业科技发展有限公司
Beijing Tuo Shi Hong Ye Science&Technology Development Co.,Ltd 版权所有
客服电话： 400-850-8888 违法信息举报邮箱：}