[已解决]打印模板中导入数据进行批量打印

qihaizhong2013

    批量打印编辑;按条件查找sheet1数据表内容到LISTVIEW里，然后将LISTVIEW的数据按照打印模板进行批量打印，模板打印数据信息每页限15条。
    老师帮忙给编辑一下，

      真是不好意思，在五一劳动节之际还在麻烦老师。

      非常感谢老师的每次回复于帮助。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-30 08:07

打印按钮的代码。
另外，你的序号了漏了个数。

1. Private Sub CommandButton2_Click()    '清空
   
2.     Dim arrPrint(1 To 15, 1 To 9)
   
3.     Dim i As Long, k As Long, l As Long
   
4. 
   
5.     Dim arrPos
   
6.     arrPos = Array(0, 1, 2, 4, 6, 7, 8)
   
7.     With Me.ListView1
   
8.         If .ListItems.Count = 0 Then
   
9.             MsgBox "列表中无数据可打印"
   
10.             Exit Sub
    
11.         End If
    
12.         Application.ScreenUpdating = False
    
13.         'Application.DisplayAlerts = False
    
14.         
    
15.         For i = 1 To .ListItems.Count
    
16.             l = l + 1
    
17.             For k = 1 To 6
    
18.                 arrPrint(l, arrPos(k)) = .ListItems(i).SubItems(k)
    
19.             Next
    
20.             If l = 15 Then
    
21.                 With Worksheets("打印模板")
    
22.                     .Range("c5").Resize(l, UBound(arrPrint, 2)) = arrPrint
    
23.                     .PrintOut
    
24.                     .Range("c5:k19").ClearContents
    
25.                     Erase arrPrint
    
26.                 End With
    
27.                 l = 0
    
28.             End If
    
29.         Next
    
30.         If l > 0 Then
    
31.             With Worksheets("打印模板")
    
32.                 .Range("c5").Resize(l, UBound(arrPrint, 2)) = arrPrint
    
33.                 .PrintOut
    
34.                 .Range("c5:k15").ClearContents
    
35.             End With
    
36.         End If
    
37.     End With
    
38.     Application.ScreenUpdating = True
    
39.     'Application.DisplayAlerts = true
    
40.     MsgBox "打印完成"
    
41. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

打印按钮的代码。
另外，你的序号了漏了个数。

1. Private Sub CommandButton2_Click()    '清空
   
2.     Dim arrPrint(1 To 15, 1 To 9)
   
3.     Dim i As Long, k As Long, l As Long
   
4. 
   
5.     Dim arrPos
   
6.     arrPos = Array(0, 1, 2, 4, 6, 7, 8)
   
7.     With Me.ListView1
   
8.         If .ListItems.Count = 0 Then
   
9.             MsgBox "列表中无数据可打印"
   
10.             Exit Sub
    
11.         End If
    
12.         Application.ScreenUpdating = False
    
13.         'Application.DisplayAlerts = False
    
14.         
    
15.         For i = 1 To .ListItems.Count
    
16.             l = l + 1
    
17.             For k = 1 To 6
    
18.                 arrPrint(l, arrPos(k)) = .ListItems(i).SubItems(k)
    
19.             Next
    
20.             If l = 15 Then
    
21.                 With Worksheets("打印模板")
    
22.                     .Range("c5").Resize(l, UBound(arrPrint, 2)) = arrPrint
    
23.                     .PrintOut
    
24.                     .Range("c5:k19").ClearContents
    
25.                     Erase arrPrint
    
26.                 End With
    
27.                 l = 0
    
28.             End If
    
29.         Next
    
30.         If l > 0 Then
    
31.             With Worksheets("打印模板")
    
32.                 .Range("c5").Resize(l, UBound(arrPrint, 2)) = arrPrint
    
33.                 .PrintOut
    
34.                 .Range("c5:k15").ClearContents
    
35.             End With
    
36.         End If
    
37.     End With
    
38.     Application.ScreenUpdating = True
    
39.     'Application.DisplayAlerts = true
    
40.     MsgBox "打印完成"
    
41. End Sub

复制代码

hwc2ycy

1. Private Sub CommandButton2_Click()    '清空
   
2.     Dim arrPrint(1 To 15, 1 To 9)
   
3.     Dim i As Long, k As Byte, l As Byte
   
4. 
   
5.     Dim arrPos
   
6.     arrPos = Array(0, 1, 2, 4, 6, 7, 8)
   
7.     With Me.ListView1
   
8.         If .ListItems.Count = 0 Then
   
9.             MsgBox "列表中无数据可打印"
   
10.             Exit Sub
    
11.         End If
    
12.         Application.ScreenUpdating = False
    
13.         'Application.DisplayAlerts = False
    
14.         
    
15.         For i = 1 To .ListItems.Count
    
16.             l = l + 1
    
17.             For k = 1 To 6
    
18.                 arrPrint(l, arrPos(k)) = .ListItems(i).SubItems(k)
    
19.             Next
    
20.             If l = 15 Then
    
21.                 With Worksheets("打印模板")
    
22.                     .Range("c5").Resize(l, UBound(arrPrint, 2)) = arrPrint
    
23.                     .PrintOut
    
24.                     .Range("c5:k19").ClearContents
    
25.                     Erase arrPrint
    
26.                 End With
    
27.                 l = 0
    
28.             End If
    
29.         Next
    
30.         If l > 0 Then
    
31.             With Worksheets("打印模板")
    
32.                 .Range("c5").Resize(l, UBound(arrPrint, 2)) = arrPrint
    
33.                 .PrintOut
    
34.                 .Range("c5:k15").ClearContents
    
35.             End With
    
36.         End If
    
37.     End With
    
38.     Application.ScreenUpdating = True
    
39.     'Application.DisplayAlerts = true
    
40.     MsgBox "打印完成"
    
41. End Sub

复制代码

qihaizhong2013

老师，像我附件类型内容能够封装吗？如果想封装应该做些什么？

qihaizhong2013

有一个网站   http://www.onlyit.cn/soft_edt
新用户这里下载库存管理系统软件（6M左右）挺好，我想仿照这个做，可是不知道怎么编辑的，

onlyithz

qihaizhong2013 发表于 2013-5-2 16:43
有一个网站   http://www.onlyit.cn/soft_edt
新用户这里下载库存管理系统软件（6M左右）挺好，我想仿照这 ...

很好的绿色、免费软件，值得支持、收藏，谢谢

onlyithz

支持下，与更多朋友分享，谢谢