EXCEL模板打印时自动按数据库顺序自动填充并打印

王纪根

zjdh

检验报告打印.rar (29.6 KB, 下载次数: 15)

2024-5-5 17:47 上传

点击文件名下载附件

leeson7502

参与一下：

1. Sub print2()
   
2.     Dim ws As Worksheet, arr()
   
3.     Set ws = Sheets("数据源")
   
4.     arr = ws.UsedRange
   
5.     Set ws = Sheets("报告打印")
   
6.     For i = 2 To UBound(arr)
   
7.         With ws
   
8.             .Range("E4") = arr(i, 2)
   
9.             .Range("E5") = arr(i, 3)
   
10.             .Range("E6") = arr(i, 4)
    
11.             .PrintOut
    
12.         End With
    
13.     Next
    
14.     MsgBox "打印完毕！"
    
15. End Sub
    

复制代码

王纪根

zjdh 发表于 2024-5-5 17:47

非常棒，感谢大神，如果我需要在数据库里再增加一个打印内容到模板，怎么修改呢？

zjdh

检验报告打印2.rar (42.68 KB, 下载次数: 12)

2024-5-6 12:45 上传

点击文件名下载附件

zjdh

起止序号也可以自由填入