[已解决]excel如何实现一键打印复选框选定的单据号

wangxk0807

原先是录入完数据最后一次打印，只能一个一个单号的查询打印，效率太低，想达到如下要求：
点击打印按钮——弹出打印查询窗体——可单选、多选——打印选中的单据号。
请各位老师帮忙，谢谢各位。

最佳答案

月排行榜 / 总排行榜

su45

2016-11-6 16:08

哦，没注意一个属性，改了下：

1. Private Sub CommandButton2_Click()
   
2.     Application.EnableEvents = False
   
3.     For i = 1 To ListView1.ListItems.Count
   
4.         If ListView1.ListItems(i).Checked Then
   
5.             [K3] = ListView1.ListItems(i).Text
   
6.             Call 入库单据查询
   
7.             Sheets("入库单").PrintOut
   
8.         End If
   
9.     Next
   
10.     Application.EnableEvents = True
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

su45

你测试下：

1. Private Sub CommandButton2_Click()
   
2.     For i = 1 To ListView1.ListItems.Count
   
3.         If ListView1.ListItems(i).Selected Then
   
4.             [K3] = ListView1.ListItems(i).Text
   
5.             Call 入库单据查询
   
6.             Sheets("入库单").PrintOut
   
7.         End If
   
8.     Next
   
9. End Sub
   

复制代码

苏子龙

全部做好了，麻烦楼主再上传附件，可以做仓库模板了，谢谢

wangxk0807

su45 发表于 2016-11-5 19:46
你测试下：

感谢老师的帮助，测试了一下不能连续查询打印

wangxk0807

苏子龙 发表于 2016-11-5 22:21
全部做好了，麻烦楼主再上传附件，可以做仓库模板了，谢谢

全部完成后上传共享，谢谢关心

su45

哦，没注意一个属性，改了下：

1. Private Sub CommandButton2_Click()
   
2.     Application.EnableEvents = False
   
3.     For i = 1 To ListView1.ListItems.Count
   
4.         If ListView1.ListItems(i).Checked Then
   
5.             [K3] = ListView1.ListItems(i).Text
   
6.             Call 入库单据查询
   
7.             Sheets("入库单").PrintOut
   
8.         End If
   
9.     Next
   
10.     Application.EnableEvents = True
    
11. End Sub
    

复制代码

wangxk0807

su45 发表于 2016-11-6 16:08
哦，没注意一个属性，改了下：

谢谢老师的帮助，测试了一下可以

su45

可以给最佳了吧？