excel怎么利用vba实现批量套打快递单批量打印单据?

   发布时间：2016-01-28 11:09:04   作者：佚名   我要评论

excel怎么利用vba实现批量套打快递单批量打印单据？过年了，在网上购物的朋友越来越多，需要打印的快递单子也越来越多，一个一个的打印速度上不来该怎么办呢？下面我们来看看excel通过vba实现批量套打快递单批量打印单据的技巧

excel vba 批量套打快递单,批量打印单据，可以自定义修改设置新的格式。

快递套打模板2015：点击下载

1、设置快递单的自定义纸张。选择对应打印机-点击打印服务器属性-勾选创建新表单-输入表单名称-填写对应尺寸-点击保存表单（快递单的高度=1.27cm×边孔数量）

2、设置纸张规格。选择对应打印机-右键点击打印首选项-打开高级选项卡-纸张规格选择新增的自定义纸张

3、设置进纸规格。选择对应打印机-右键点击属性-打开设备设置-进纸器选择新增的自定义纸张

4、下载快递套打模板。测试打印根据实际的偏移情况进行调整设置，调整边距和缩放比例点击设置打印边距；

其他相关设置：

1、打印明细字段名修改方法

1）修改【打印明细】字段名，也可以变化前后顺序，不需要的字段也可以删除。

2）同步修改【参数】表内D列对应的名称。

3）E列是自动更新不用更新

2、新增调整修改打印字段位置方法

1）在【参数】内A列添加或者修改字段名，自定义自己明白即可。

2）在【参数】内B列添加此字段在【打印模板】对应行数。

3）在【参数】内C列添加此字段在【打印模板】对应列数。

4，在【参数】内D列添加此字段在【打印明细】对应表头字段名。

3、设置新的打印模板

1）【打印模板】可以删除背景，添加新的快递单背景，或者设置需要打印的表单。

2）设置完毕新的格式后设置新的打印区域。

3）修改【参数】内各字段对应数据。

4、具体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表格对指定内容进行批量替换操作的教程

• Tag：Excel   VBA   批量打印  

相关文章

• excel在打印时怎么每页都显示表头标题?

  Excel表格是我们经常使用的办公系统软件，当我们的内容超过2页，而只有一个表头的话，不方便查看，希望在每一页都有一个表头。那么excel在打印时怎么每页都显示表头标题?下

  2016-04-01

• 在excel工作表中怎么使特定行或列在打印的每页中显示?

  这篇教程是向脚本之家的朋友介绍在excel工作表中怎么使特定行或列在打印的每页中显示方法，教程比较基础，适合新手来学习，一起来看看吧

  2016-03-28

• Excel打印预览时不能改变纸张方向大小该怎办?

  Excel打印预览时不能改变纸张方向大小该怎办？excel表格打印预览时发现excel表格的纸张大小和纸张方向都没办法调整，这是怎么回事，该怎么解决呢？下面我们来看看详细的解

  2016-03-25

• 浏览器怎么设置允许远行excel导出网页文件打印?

  浏览器怎么设置允许远行excel导出网页文件打印？在浏览器的网页中有打印选项，，但是文件却不能导入excel中打印，该怎么吧呢？下面我们来看看详细的解决办法，需要的朋友可

  2016-02-28

• 在EXCEL中如何设置打印区域?excel设置打印区域方法介绍

  我们在打印excel的时候，经常需要来设定打印区域，才能更好的打印我们所要的东西，而不是默认去分布，这样容易导致自动分页，内容脱节就不好看了，那么在EXCEL中如何设置打

  2016-01-29

• BarTender条码打印软件怎么导入EXCEL表格打印?

  BarTender条码打印软件怎么导入EXCEL表格打印？BarTender软件适合打印少量的数据，但是如果有一个excel表格都需要打印成条码，该怎么办呢？一个一个打印就太慢了，下面我们

  2016-01-22

• 在Excel表格里怎么设置每页打印时都有相同表头?

  经常打印excel表格时会发现只有第一页有表头，而后面几页都没有，这也很不方便，有没有简单易行的操作方法呢，有。下面小编就为大家介绍在Excel表格里怎么设置每页打印时都

  2016-01-12

• 在excel中怎么设置只打印标题?

  打印标题的意思是：在存在多页打印的时候，每页都需要打印其第一页的标题的设置（标题每页都显示）。那么在excel中怎么设置只打印标题?下面就为大家介绍一下，来看看吧

  2016-01-07

• BarTender如何批量打印EXCEL里的数据？

  BarTender如何批量打印EXCEL里的数据？本文就给大家带来BarTender批量打印EXCEL里的数据的方法，希望可以帮助到大家

  2015-12-28

• 在双面打印时,Excel2010怎样设置左右页码?

  在双面打印时,Excel2010怎样设置左右页码?很多朋友都不是很清楚，所以今天小编就为大家详细介绍一下，不会的朋友可以参考本文，希望能对大家有所帮助

  2015-12-25

最新评论