excel怎么利用vba实现批量套打快递单批量打印单据?
发布时间:2023-04-01 04:34:24
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编程如下,
复制内容到剪贴板
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
猜你喜欢
- 当我们使用excel2007或2010高版本打开编辑2003版的文件,有时会出现下面的excel 兼容性检查器对话框。当出现上面的excel
- word文档打不开的解决办法?生活中,如果你的电脑遇到一个打不开的word文档,首先检查一下你是不是没有安装打开这个文档的软件。然后看看这份
- 打印Excel工作表时,可能会有工作表中部分行的数据不希望打印出来。此时,我们不妨借助Excel的分级显示来解决这个问题。步骤如下:选中Ex
- 在 iOS 16 及更新版本中,苹果对专注模式进行了几项改进,其中之一是能够将定制的锁定屏幕关联到专注模式中。有了丰富的个性化选项,用户可以
- 如何在Word 2016中查找和插入在线图片?有关在线图像的坏消息是:没有更多的剪贴画。Microsoft已停止其剪贴画存储库,并且Offi
- 我们需要用Word 2007做一份采购合同书。它与普通Word文档的不同在于,其中的大部分内容是不需要更改的,甚至不允许更改。我们需要用Wo
- Word是工作和学习中经常要使用的软件,对Word中文字的行间距也有不同的要求,那么如何修改Word中的行间距呢?接下来就由小编为您分享下调
- Excel2013相对于Excel2003在界面布局上有了较大的改变,这种改变从2007版就开始了,所以一定要熟悉新的东西,那么在Excel
- 谈及深度技术,许多人最先想到的就是“深度技术Win10系统”了。当然,也有一些刚刚开始接触深度技术Win10系统的朋友,对其并不是特别的了解
- 小编最近在编写技术文章的时候想到要在一个Word文档里插入另外一篇Word文档,然后当我需要阅读另外一篇文档的时候,直接点击就能够打开,在
- 问:Word中的脚注如何删除?把正文相应的符号删除,内容可以删除,但最后那个格式还在,应该怎么办?答:步骤如下:1、切换到普通视图,菜单中“
- 在Word文档中,智能自动跳行排版,中文文档自动跳行,不影响阅读。但是英文单词的话,可能会出现一个英文单词被分在了不同行上,那么用户阅读起来
- wps项目符号怎样设置首先先来看看它的具体功能 ①选择需要添加项目符号、编号的文字内容;②点击【段落】菜单选项中的【项目符号】或【编号格式】
- 在传统的会议中,要做到多台电脑轮番投影演示时,要么需要多次拔插连接笔记本端的信号线,加上参会人员有的笔记本是windows系统,有的是Mac
- 使用word编辑文档时,一时之乱不小心把编辑中的word文档没保存就关掉了。这可怎么办? Word文档误删怎么办?
- ·快速为表格添加边框如果不想设计什么特别的边框,直接用系统的网格线为表格添加边框是最方便的:执行“文件→页面设置”命令,打开“页面设置”对话
- Word文档排版中合理使用项目符号,可让文章层次分明,突出重点,今天给大家分享的是word怎么取消项目符号的操作方法,一起瞧瞧吧!1、如何取
- Office 2013的组件如Word 2013、Excel 2013以及PPT 2013启动时都是显示开始屏幕,而不是跟Office 20
- excel2016怎么设计连续图片列表?excel2016表格中想要设计一个连续图片列表,该怎么制作呢?下面我们就来看看详细的教程,需要的朋
- Word文档如果末页有空白页,在打印时不仅浪费纸张,而且完全没存在的必要,因此完全可以将此空白页删除掉。Word文档如果末页有空白页,在打印