Excel数据关联打印

Excel-20

各位大神：
附件表格中有两个工作簿，第一个为原始数据，第二个为打印报告，如何在打印报告黄色标注的表格中将原始数据对应的数据依次链接并打印，如A3、B3、C3、D3、E3、F3为完整的一份打印报告，然后依次生成A4、A5、A6等打印报告，麻烦各位大神指教，谢谢！

568132828

收费100，全自动给你打印，你只需要加纸

kuangben8

1. Sub 连续打印()
   
2.     Dim m%, n%, i%
   
3.     Dim arr
   
4.     If MsgBox("确定打印吗？", vbYesNo + vbInformation, "友情提醒:") = vbYes Then
   
5.         arr = Worksheets("原始数据").Range("A1").CurrentRegion
   
6.         m = Range("O1").Value
   
7.         n = Range("O2").Value
   
8.         Application.ScreenUpdating = False
   
9.         With ActiveSheet
   
10.             For i = m To n
    
11.                 .Range("G2") = arr(m, 1)
    
12.                 .Range("B4") = arr(1, 2)
    
13.                 .Range("L4") = arr(1, 4)
    
14.                 .Range("B5") = arr(m, 3)
    
15.                 Union(.Range("B9"), .Range("E9"), .Range("H9")) = arr(m, 4)
    
16.                 Union(.Range("C9"), .Range("F9"), .Range("I9")) = arr(m, 5)
    
17.                 Union(.Range("D9"), .Range("G9"), .Range("J9"), .Range("L9")) = arr(m, 6)
    
18.                 .Range("B10") = arr(m, 2)
    
19.                 .PrintOut
    
20.             Next
    
21.         End With
    
22.         Application.ScreenUpdating = True
    
23.         MsgBox "打印完毕！", vbOKOnly + vbInformation, "友情提醒:"
    
24.     End If
    
25. End Sub

复制代码

kuangben8

代码审核中。
Eecel数据处理.zip (21.07 KB, 下载次数: 7)

2020-12-7 23:08 上传

点击文件名下载附件

Excel-20

kuangben8 发表于 2020-12-7 23:08
代码审核中。

大神，非常感谢，很nice，就是有一点For语句下面的m换成 i 就可以了，还得麻烦请教您一下，我能不能生成word版的报告，望赐教，非常感谢。

kuangben8

Excel-20 发表于 2020-12-8 16:42
大神，非常感谢，很nice，就是有一点For语句下面的m换成 i 就可以了，还得麻烦请教您一下，我能不能生成w ...

直接连续打印成PDF版本就好了。

Excel-20

kuangben8 发表于 2020-12-8 20:28
直接连续打印成PDF版本就好了。

大神您好，现在有个新的问题，
1、D9,G9,J9,和K9的误差值原始数据中是百分数，但在报告中显示为小数值，这个该怎么解决
2、打印报告我想直接生成word版的，所有生成新的表格的全部在一个word中，不知这个可不可以实现

kuangben8

Excel-20 发表于 2020-12-9 10:50
大神您好，现在有个新的问题，
1、D9,G9,J9,和K9的误差值原始数据中是百分数，但在报告中显示为小数值， ...

显示问题可以设置单元格格式。生成word文件，我还不会。。。。

Excel-20

kuangben8 发表于 2020-12-9 12:27
显示问题可以设置单元格格式。生成word文件，我还不会。。。。

好的，非常感谢大神的鼎力相助！！！