excel怎样利用vba实现批量套打快递单批量打印单据?-英雄云拓展知识分享

1. Private Sub 打印全部数据_Click()   
2.   
3. config = vbYesNo + vbQuestion + vbDefaultButton1   
4.   
5.  ans = MsgBox("你确认打印全部数据吗，我们将继续深入。", config, "如风达")   
6.   
7.     If ans = vbYes Then   
8.   
9.      Dim A&, B&, C&, D$, E$,R1&, C1&, R2&, C2&, R3&, C3&, R4&, C4&, SF$   
10.   
11.   '当前工作表名  
12.  
13.    SF = ActiveSheet.Name     
14.  
15.    '打印明细的最后列,行     
16.   
17.    R1 = Sheets("打印明细").UsedRange.Rows.Count     
18.   
19.    C1 = Sheets("打印明细").UsedRange.Columns.Count    
20.   
21.    '参数的最后列,行    
22.  
23.    R2 = Sheets("参数").UsedRange.Rows.Count   
24.  
25.    C2 = Sheets("参数").UsedRange.Columns.Count  
26.  
27.       '更新打印位置对应列   
28.   
29.      For B = 2 To R2   
30.   
31.        Sheets("参数").Cells(B, 5) = ""  
32.   
33.            For A = 1 To C1   
34.   
35.               If Sheets("参数").Cells(B, 4).Text = Sheets("打印明细").Cells(1, A).Text Then   
36.   
37.                Sheets("参数").Cells(B, 5) = A   
38.   
39.                End If   
40.   
41.            Next   
42.   
43.         Next         
44.   
45.    '查询指定定单的信息  
46.  
47.        For R4 = 2 To R1  
48.  
49.            For A = 2 To R2  
50.  
51.               If Sheets("参数").Cells(A, 5).Text <> "" Then  
52.  
53.               '生成明细列   
54.   
55.                C4 = Sheets("参数").Cells(A, 5).Text   
56.   
57.               '生成目标对应行列   
58.   
59.                R3 = Sheets("参数").Cells(A, 2).Text   
60.   
61.                C3 = Sheets("参数").Cells(A, 3).Text                     
62.   
63.                ActiveSheet.Cells(R3, C3).Value = Sheets("打印明细").Cells(R4, C4).Text                 
64.   
65.              End If   
66.   
67.            Next   
68.   
69.           ActiveSheet.PrintOut From:=1, To:=1            
70.   
71.         Next      
72.   
73.      MsgBox "打印完成！", vbInformation   
74.   
75.   If ans = vbNo Then   
76.   
77.   Exit Sub   
78.   
79. End If     
80.   
81. End If   
82.   
83. End Sub  

相干推荐：

excel表格怎样针对身份证号码批量填写籍贯？

Excel表格对指定内容进行批量替换操作的教程