如何根据要求分类批量打印

阿姆拉姆

根据选择的不同类型调用不同模板批量打印数据，见示例 绀轰緥.rar (12.79 KB, 下载次数: 7)

2021-9-28 16:28 上传

点击文件名下载附件

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     arr = .Range("a2:c13")
   
6.     cx = .Range("b14")
   
7.   End With
   
8.   With Worksheets(cx)
   
9.     For i = 1 To UBound(arr)
   
10.       If arr(i, 3) = cx Then
    
11.         .Range("b1") = arr(i, 1)
    
12.         .Range("d1") = arr(i, 3)
    
13.         .PrintOut
    
14.       End If
    
15.     Next
    
16.   End With
    
17. End Sub
    

复制代码

chxw68

详见附件。

阿姆拉姆

谢谢大仙们

阿姆拉姆

chxw68 发表于 2021-9-28 16:36
详见附件。

如果将模板里的车型换为型号而不是车型，那么该怎么写代码？谢谢赐教

chxw68

阿姆拉姆 发表于 2021-9-28 21:20
如果将模板里的车型换为型号而不是车型，那么该怎么写代码？谢谢赐教

arr（i，3）修改为arr（i，2）

阿姆拉姆

chxw68 发表于 2021-9-28 21:23
arr（i，3）修改为arr（i，2）

示例里的按钮是命令按钮吗？如何让命令按钮执行这个打印任务？谢谢啊

chxw68

阿姆拉姆 发表于 2021-9-28 22:24
示例里的按钮是命令按钮吗？如何让命令按钮执行这个打印任务？谢谢啊

打印代码在里面呢，你试了不打印？

阿姆拉姆

chxw68 发表于 2021-9-29 10:04
打印代码在里面呢，你试了不打印？

搞定了，万分感谢。
这里还有个问题。假如每个车有三个照片，命名为：车号-1、-2、-3。所有车的照片都在某一目录内，比如在...DESKTOP\PIC目录下。如何在打印每种车的检查单内B14/B15/B16三个单元格内插入车的照片，然后再打印呢？