如何进行列表框复选 批量打印表单

jyh7081

原先是在单元格建立下拉列表，选中后逐一进行打印，效率太低，想达到如下要求：
点击按钮——弹出sheet（2013数据）中第一列案号的列表框——可单选、多选、全选、反选——打印选中的收结案卡片。
请各位老师帮忙，谢谢各位。
2014收结案管理.zip (35.78 KB, 下载次数: 44)

2014-1-4 21:29 上传

点击文件名下载附件

jyh7081

只会写全部批量打印代码，如下：

1. Sub 批量打印()
   
2. Worksheets(2).Activate  '激活第二个工作表（工作表“收结案卡片”）
   
3. For i = 2 To Worksheets(1).[a65536].End(xlUp).Row  '同上，建立循环，从“2013数据”工作表a列的2到最后一行
   
4.   [a3] = Worksheets(1).Cells(i, 1).Value '当前工作表（即工作表“收结案卡片”）的a3单元格的值等于“2013数据”工作表的第i行第1列的值
   
5.   ActiveWindow.SelectedSheets.PrintOut copies:=1 '打印
   
6. Next   '进入下一循环，i值+1
   
7. End Sub

复制代码

含有Listview控件的代码还没有学好，请各位老师帮忙，再次谢谢了。

zhaogang1960

插入一个窗体，画一个列表框：

1. Private Sub CheckBox1_Click() '全选
   
2.     Dim f As Boolean, i&
   
3.     f = CheckBox1.Value
   
4.     With ListBox1
   
5.         For i = 0 To .ListCount - 1
   
6.             .Selected(i) = f
   
7.         Next
   
8.     End With
   
9. End Sub
   
10. 
    
11. Private Sub CommandButton1_Click() '打印
    
12.     Dim i&, sh As Worksheet
    
13.     Set sh = Sheets("收结案卡片")
    
14.     With ListBox1
    
15.         For i = 0 To .ListCount - 1
    
16.             If .Selected(i) Then
    
17.                 sh.[f1] = .List(i, 0)
    
18.                 sh.PrintOut '打印
    
19.             End If
    
20.         Next
    
21.     End With
    
22. End Sub
    
23. 
    
24. 
    
25. Private Sub CommandButton2_Click() '退出
    
26.     Unload Me
    
27. End Sub
    
28. 
    
29. Private Sub UserForm_Initialize()
    
30.     With ListBox1
    
31.         .ColumnHeads = True
    
32.         .RowSource = "2013数据!A2:A54"
    
33.         .MultiSelect = fmMultiSelectMulti
    
34.         .ListStyle = fmListStyleOption
    
35.     End With
    
36. End Sub
    

复制代码

zhaogang1960

请测试附件
2014收结案管理.rar (34.16 KB, 下载次数: 298)

2014-1-5 19:12 上传

点击文件名下载附件

jyh7081

非常感谢赵老师，多次得到您的帮助。{:soso_e160:}

jyh7081

zhaogang1960 发表于 2014-1-5 19:11
插入一个窗体，画一个列表框：

如果表格是动态增加的，“ .RowSource = "2013数据!A2:A54"”这句代码怎么改？

zhaogang1960

jyh7081 发表于 2014-1-5 19:41
如果表格是动态增加的，“ .RowSource = "2013数据!A2:A54"”这句代码怎么改？

1. .RowSource = "2013数据!A2:A" & Sheets("2013数据").[a65536].End(xlUp).Row

复制代码

jyh7081

谢谢赵老师。

bzhongshan

zhaogang1960 发表于 2014-1-5 19:12
请测试附件

十分感谢，多谢多谢。