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
- End If
- Next
- Next
- '查询指定订单的信息
- For R4 = 2 To R1
- For A = 2 To R2
- If Sheets("参数").Cells(A, 5).Text <> "" Then
- '生成明细列
- C4 = Sheets("参数").Cells(A, 5).Text
- '生成目标对应行列
- R3 = Sheets("参数").Cells(A, 2).Text
- C3 = Sheets("参数").Cells(A, 3).Text
- ActiveSheet.Cells(R3, C3).Value = Sheets("打印明细").Cells(R4, C4).Text
- End If
- Next
- ActiveSheet.PrintOut From:=1, To:=1
- Next
- MsgBox "打印完成!", vbInformation
- If ans = vbNo Then
- Exit Sub
- End If
- End If
- End Sub
相关推荐:
相关文章
- Excel表格是我们经常使用的办公系统软件,当我们的内容超过2页,而只有一个表头的话,不方便查看,希望在每一页都有一个表头。那么excel在打印时怎么每页都显示表头标题?下2016-04-01
- 这篇教程是向脚本之家的朋友介绍在excel工作表中怎么使特定行或列在打印的每页中显示方法,教程比较基础,适合新手来学习,一起来看看吧2016-03-28
- Excel打印预览时不能改变纸张方向大小该怎办?excel表格打印预览时发现excel表格的纸张大小和纸张方向都没办法调整,这是怎么回事,该怎么解决呢?下面我们来看看详细的解2016-03-25
- 浏览器怎么设置允许远行excel导出网页文件打印?在浏览器的网页中有打印选项,,但是文件却不能导入excel中打印,该怎么吧呢?下面我们来看看详细的解决办法,需要的朋友可2016-02-28
在EXCEL中如何设置打印区域?excel设置打印区域方法介绍
我们在打印excel的时候,经常需要来设定打印区域,才能更好的打印我们所要的东西,而不是默认去分布,这样容易导致自动分页,内容脱节就不好看了,那么在EXCEL中如何设置打2016-01-29- BarTender条码打印软件怎么导入EXCEL表格打印?BarTender软件适合打印少量的数据,但是如果有一个excel表格都需要打印成条码,该怎么办呢?一个一个打印就太慢了,下面我们2016-01-22
- 经常打印excel表格时会发现只有第一页有表头,而后面几页都没有,这也很不方便,有没有简单易行的操作方法呢,有。下面小编就为大家介绍在Excel表格里怎么设置每页打印时都2016-01-12
- 打印标题的意思是:在存在多页打印的时候,每页都需要打印其第一页的标题的设置(标题每页都显示)。那么在excel中怎么设置只打印标题?下面就为大家介绍一下,来看看吧2016-01-07
- BarTender如何批量打印EXCEL里的数据?本文就给大家带来BarTender批量打印EXCEL里的数据的方法,希望可以帮助到大家2015-12-28
- 在双面打印时,Excel2010怎样设置左右页码?很多朋友都不是很清楚,所以今天小编就为大家详细介绍一下,不会的朋友可以参考本文,希望能对大家有所帮助2015-12-25
最新评论