Excel批量打印快递单和批量打印单据可以自定义、修改和设置新的格式。
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编程如下：
将内容复制到剪贴板
私有Sub打印所有数据_Click()
config=vbyes no VB question vbdefaultbutton 1
Ans=MsgBox('您确定要打印所有数据吗？'配置，“丰达”)
如果ans=vbYes，则
Dim A、B、C、D$、E$、R1、C1、R2、C2、R3、C3、R4、C4、SF$。
当前工作表名称
SF=ActiveSheet。名字
打印详细信息的最后一列和最后一行。
R1=工作表('打印详细信息')使用范围。行数。计数
C1=张('打印详细信息')。使用范围。列数
'参数的最后一列和最后一行
R2=工作表('参数')使用范围。行数。计数
C2=工作表('参数')。使用范围。列数
更新与打印位置对应的列。
对于B=2到R2
工作表('参数')。单元格(B，5)=' '
对于A=1到C1
如果工作表('参数')。单元格(B，4)。Text=Sheets ('print details ')。单元格(1，A)。然后发短信
工作表('参数')。单元格(B，5)=A
如果…就会结束
然后
然后
查询指定订单的信息
对于R4=2到R1
对于A=2到R2
如果工作表('参数')。单元格(A，5)。那就发短信吧
生成明细列
C4=工作表('参数')。单元格(A，5)。文本
生成目标的相应行和列。
R3=工作表('参数')。单元格(A，2)。文本
C3=工作表('参数')。单元格(A，3)。文本
ActiveSheet。细胞(R3，C3)。Value=Sheets('打印详细信息')。细胞(R4，C4)。文本
如果…就会结束
然后
ActiveSheet。从：=1到：=1的打印输出
然后
MsgBox '打印完成！'VB信息
如果ans=vbNo，则
出口接头
如果…就会结束
如果…就会结束
末端接头
