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编程如下，
复制内容到剪贴板
Private Sub 打印全部数据_Click()
config = vbYesNo + vbQuestion + vbDefaultButton1
ans = MsgBox("你确认打印全部数据吗？", config, "如风达")
If ans = vbYes Then
Dim A&, B&, C&, D$, E$,R1&, C1&, R2&, C2&, R3&, C3&, R4&, C4&, SF$
'当前⼯作表名
SF = ActiveSheet.Name
'打印明细的最后列,⾏
R1 = Sheets("打印明细").UsedRange.Rows.Count
C1 = Sheets("打印明细").UsedRange.Columns.Count
'参数的最后列,⾏
R2 = Sheets("参数").UsedRange.Rows.Count
C2 = Sheets("参数").UsedRange.Columns.Count
'更新打印位置对应列
For B = 2 To R2
Sheets("参数").Cells(B, 5) = ""
For A = 1 To C1
If Sheets("参数").Cells(B, 4).Text = Sheets("打印明细").Cells(1, A).Text Then                  Sheets("参数").Cells(B, 5) = A

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。