关于批量数据单户打印和批量打印的方法

黑煞

半百 发表于 2023-3-20 16:05
.PrintOut
O打成数字0了

哈哈！感谢啦！

黑煞

清风竹- 发表于 2023-3-20 16:53
优化了代码。

又给优化啦？太厉害了！

黑煞

清风竹- 发表于 2023-3-20 16:53
优化了代码。

大神，还得需要您的帮助，由于数据汇总当中我加了辅助列，原来的打印次数在L列，现在是M列，批量打印功能完全没问题，但是打印次数不体现了，请问我应该修改哪里的代码？

1. Sub 批量打印()
   
2. 
   
3. On Error Resume Next
   
4. Set Rng = Application.InputBox("请选择区域（C列）", "必须选择身份证号码区域", , , , , , 8)
   
5. If Err <> 0 Then Exit Sub
   
6.   Sheets("一户一表").Select
   
7. If Len(Rng) <> 18 Then
   
8.    arr = Rng
   
9.    For i = 1 To UBound(arr)
   
10.       If Len(arr(i, 1)) <> 18 Then Exit Sub
    
11.          If i = 1 Then
    
12.             s = Sheet1.Columns("b").Find(arr(i, 1), , , , , 2).Row
    
13.             brr = Sheet1.Range("l" & s).Resize(UBound(arr), 1)
    
14.          End If
    
15.   
    
16.       brr(i, 1) = brr(i, 1) + 1
    
17.       Sheet2.Cells(1, "i") = arr(i, 1)
    
18.      '  MsgBox "打印"
    
19.       ActiveWindow.SelectedSheets.PrintOut
    
20.    Next
    
21.   Sheet1.Cells(s, "l").Resize(UBound(arr), 1) = brr
    
22. Else
    
23.      arr = Rng
    
24.      s = Sheet1.Columns("b").Find(arr, , , , , 2).Row
    
25.      ss = Sheet1.Range("l" & s)
    
26.      If Len(arr) <> 18 Then Exit Sub
    
27.       Sheet2.Cells(1, "i") = arr
    
28.        ss = ss + 1
    
29.        '  MsgBox "打印"
    
30.       ActiveWindow.SelectedSheets.PrintOut
    
31.       Sheet1.Range("l" & s) = ss
    
32. 
    
33. End If
    
34. End Sub
    

复制代码

黑煞

清风竹- 发表于 2023-3-20 16:53
优化了代码。

自己研究明白了，哈哈~加您了，请通过。

1. Sub 批量打印()
   
2. 
   
3. On Error Resume Next
   
4. Set Rng = Application.InputBox("请选择区域（C列）", "必须选择身份证号码区域", , , , , , 8)
   
5. If Err <> 0 Then Exit Sub
   
6.   Sheets("一户一表").Select
   
7. If Len(Rng) <> 18 Then
   
8.    arr = Rng
   
9.    For i = 1 To UBound(arr)
   
10.       If Len(arr(i, 1)) <> 18 Then Exit Sub
    
11.          If i = 1 Then
    
12.             s = Sheet1.Columns("c").Find(arr(i, 1), , , , , 2).Row
    
13.             brr = Sheet1.Range("m" & s).Resize(UBound(arr), 1)
    
14.          End If
    
15.   
    
16.       brr(i, 1) = brr(i, 1) + 1
    
17.       Sheet2.Cells(1, "i") = arr(i, 1)
    
18.      '  MsgBox "打印"
    
19.       ActiveWindow.SelectedSheets.PrintOut
    
20.    Next
    
21.   Sheet1.Cells(s, "m").Resize(UBound(arr), 1) = brr
    
22. Else
    
23.      arr = Rng
    
24.      s = Sheet1.Columns("c").Find(arr, , , , , 2).Row
    
25.      ss = Sheet1.Range("m" & s)
    
26.      If Len(arr) <> 18 Then Exit Sub
    
27.       Sheet2.Cells(1, "i") = arr
    
28.        ss = ss + 1
    
29.        '  MsgBox "打印"
    
30.       ActiveWindow.SelectedSheets.PrintOut
    
31.       Sheet1.Range("m" & s) = ss
    
32. 
    
33. End If
    
34. End Sub

复制代码

黑煞

清风竹- 发表于 2023-3-20 16:53
优化了代码。

清风老师您好，用您编写的代码完全实现了批量打印，但是在筛选下打印就会出错。例如：我筛选K列和F列，然后打印3条数据，就会出现错误，详见附件，谢谢啦！

清风竹-

黑煞 发表于 2023-4-4 13:26
清风老师您好，用您编写的代码完全实现了批量打印，但是在筛选下打印就会出错。例如：我筛选K列和F列，然 ...

请测试一下。

gait1030

收藏一下，以备不时之需。

黑煞

清风竹- 发表于 2023-4-4 18:24
请测试一下。

太牛了，我得慢慢消化消化，能否说一下您的思路？

百读谷歌

清风竹- 发表于 2023-3-20 15:16
请看附件。

你好，我有一个表格的打印需求和这个表格非常类似，但是是需要把同一个人的数行数据汇总打印的，请问您方便帮忙看一下能不能修改下代码让我的表格也能按您的方法来执行打印吗？

百读谷歌

清风竹- 发表于 2023-3-20 15:16
请看附件。

你好，我有一个表格的打印需求和这个表格非常类似，但是是需要把同一个人的数行数据汇总打印的，请问您方便帮忙看一下能不能修改下代码让我的表格也能按您的方法来执行打印吗？