批量套打代码咨询

企鹅先森

请教一个问题批量套打时，查询数据后引用打印，有一个问题不知道怎么写代码   请教论坛老师们
当查询的数据返回没有数值，提示没有查询到学员，这时候如何跳过这张不打印，继续打印下一张  

1. Private Sub CommandButton1_Click()
   
2. Call 查询科目学员名单
   
3. 
   
4. 
   
5. 
   
6. ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
   
7. Range("u3") = Range("u3") + 1
   
8. 
   
9. 
   
10. End Sub
    
11. Private Sub CommandButton2_Click()
    
12. Dim aaa As Long
    
13.   Dim i As Long
    
14.    Dim times As Long
    
15.    If MsgBox("查询到班级学员信息，是否开始打印点名单？", vbOKCancel + vbQuestion, "询问") = vbOK Then
    
16.   aaa = Range("Y5")       '设置打印总页码，读取该单元可作为循环次数
    
17.   Range("u3") = 1  '设置当前打印页码，从第一页开始
    
18.   times = aaa           '打印循环次数
    
19.   For i = 1 To times
    
20. Call CommandButton1_Click                '调用“打印1页”
    
21.   
    
22. Next i
    
23. Range("u3") = 1              '恢复当前页码为第一页
    
24. MsgBox "打印完毕，共计打印 " & aaa & " 张。"    '弹出打印总页数的消息
    
25. End If
    
26. 
    
27. 
    
28. End Sub
    
29. 
    
30. Sub 查询科目学员名单()
    
31.    
    
32.     Range("A6:V1000").ClearContents  '清空页面内容
    
33.    
    
34.    
    
35.     Range("A2:v20").Borders.Weight = xlThin '指定区域添加所有边框
    
36.    
    
37.    
    
38.     Dim ar, br(), FindStr As String, FindW As String, i As Integer, n As Integer
    
39.     With Sheets("点名单打印")
    
40.         FindStr = .[a3] & .[c3] & .[d3] '查询条件
    
41.     End With
    
42.     ar = Sheets("学员档案汇总").[a2].CurrentRegion
    
43.     ReDim Preserve br(1 To UBound(ar), 1 To 5)
    
44.     FindW = ar(3, 8) & ar(3, 9) & ar(3, 10) '查询区域
    
45.     For i = 2 To UBound(ar)
    
46.         FindW = ar(i, 8) & ar(i, 9) & ar(i, 10) '
    
47.         If FindStr = FindW Then '写入区域
    
48.             n = n + 1
    
49.             br(n, 1) = ar(i, 22)
    
50.             br(n, 2) = ar(i, 23)
    
51.             br(n, 3) = ar(i, 24)
    
52.             br(n, 4) = ar(i, 1)
    
53.             br(n, 5) = ar(i, 2)
    
54.         End If
    
55.     Next
    
56.     If n < 1 Then MsgBox "本班级没有查询到报名学员", vbQuestion, "警告": Exit Sub
    
57.     With Sheets("点名单打印")
    
58.         .[B6].Resize(n, 5) = br
    
59.         End With
    
60.     End With
    
61. End Sub
    

复制代码

If n < 1 Then MsgBox "本班级没有查询到报名学员", vbQuestion, "警告": Exit Sub当执行到这句时，会弹出提醒，可是确认后还是继续打印这张没有数据的表格，怎么写才能跳过这张不打印？

Yalishanda30

把打印命令放在If n < 1 Then MsgBox "本班级没有查询到报名学员", vbQuestion, "警告": Exit Sub后面

企鹅先森

Yalishanda30 发表于 2019-11-9 21:20
把打印命令放在If n < 1 Then MsgBox "本班级没有查询到报名学员", vbQuestion, "警告": Exit Sub后面

不行哦  无限循环

dyydyydyy

好，很好的例子