Excel--如何使用EXCEL连续打印快递单

在现在物流快递业务越来越多，填写快递单是一个非常痛苦的事。同时快递业务也需要记录跟踪，在现实工作中我们常常会用excel进行记录跟踪。有了excel我们就想到用excel的编程功能实现连续打印快递单，具体步骤如下：

1、根据快递单幅面，在excel里增加一个sheet，并制定好excel的同版面的格式，这个工作非常需要耐心（sheet命名为：快递单）；

2、在本机上安装针式打印机，并自己定好特定纸张（按照快递的大小设置好自定义纸张），并设置好打印机的默认纸张；

3、填写excel的通讯页，根据快递单的需要填写的内容，准备好内容（sheet命名为：通讯地址）；

4、编写宏代码如下：

Sub PrintToPrint()

Dim i As Integer, j As Integer
Dim wsh As Worksheet
Set wsh = Application.Worksheets("快递单")
'remove all page breaks
wsh.ResetAllPageBreaks
'enable autoajusting
wsh.PageSetup.Zoom = False
'set new area
wsh.PageSetup.PrintArea = "A2:K11"
'set paper orientation
wsh.PageSetup.Orientation = xlLandscape
wsh.PrintOut
'wsh.PrintPreview
Set wsh = Nothing

End Sub

Sub PrintMacro()

Dim cn As New ADODB.Connection
Dim rsdt As New ADODB.Recordset
Dim sql As String
Dim mybook As String

Dim mResult As Boolean

On Error GoTo Errorhandler

Application.ScreenUpdating = False
Application.DisplayAlerts = False

mybook = Application.ThisWorkbook.FullName
With cn
    .Provider = "Microsoft.ACE.OLEDB.12.0"
    .ConnectionString = "extended properties=""Excel 12.0 Xml;HDR=YES;"";data source=" & mybook
    .Open
End With
sql = "select * from [通讯地址$]"
Set rsdt = cn.Execute(sql)
If Not rsdt.BOF Then
      rsdt.MoveFirst
End If
If rsdt.EOF Then
     Exit Sub
End If

'弹出打印机机选择窗口，让用户选择打印机
mResult = Application.Dialogs(xlDialogPrinterSetup).Show
If mResult = False Then
     Exit Sub
End If
'弹出打印机机选择窗口，让用户选择打印机
Application.Dialogs(xlDialogPrinterSetup).Show
Do Until rsdt.EOF
    '将对应内容填写到设计好快递单的相应栏位
    sht.Cells(2, 3).Value = rsdt.Fields.Item("客服").Value
    sht.Cells(7, 3).Value = rsdt.Fields.Item("客服电话").Value
    sht.Cells(2, 7).Value = rsdt.Fields.Item("收件人").Value
    sht.Cells(3, 7).Value = rsdt.Fields.Item("地址").Value
    sht.Cells(6, 7).Value = rsdt.Fields.Item("客户名称").Value
    sht.Cells(7, 7).Value = rsdt.Fields.Item("电话").Value
    rsdt.MoveNext
    '循环调用打印，打出快递单
    Call PrintToPrint

Loop
Errorhandler:
'clear up
If Err.Number <> 0 Then
     MsgBox Err.Source & "->" & Err.Description & "->" & Err.Number
End If
If Not rsdt Is Nothing Then
    If rsdt.State = adStateOpen Then rsdt.Close
End If
Set rsdt = Nothing

If Not cn Is Nothing Then
    If cn.State = adStateOpen Then cn.Close
End If
Set cn = Nothing
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

5、增加一个按钮，并在事件里调用PrintMacro即可，连续打印了。

Excel--如何使用EXCEL连续打印快递单相关推荐

php批量打印快递单,excel怎么利用vba实现批量套打快递单批量打印单据?
excel vba 批量套打快递单,批量打印单据,可以自定义修改设置新的格式. 快递套打模板2015:点击下载 1.设置快递单的自定义纸张.选择对应打印机-点击打印服务器属性-勾选创建新表单-输入表单 ...
快速查快递单号并保存物流信息
快递的使用率越来越多,快递单号形成后,如何快速查快递单号物流呢,怎样将每个单号物流的信息都轻松的导出表格呢?下面一起来看批量查快递办法,并导出物流到表格保存吧. 先看每个单号物流都导出表格保存的效果. ...
关于word和excel实现套打快递单的问题
上周五,公司业务部门加班在写快递单,我记得word和excel是可以实现套打的,于是找来了打印机实际测试. 准备:一台windows电脑(现在大部分时间用mac本本),一台针式打印机Epson LQ- ...
将查询好的快递单号以及物流导出EXCEL表格
最近有很多朋友在问,如何查询多家快递,并将物流导出EXCEL表格保存呢?今天小编给大家分享一个新的查询技巧,下面一起来试试吧. 材料准备: 一台Win系统的电脑快递单号若干步骤演示: 运行[快递批 ...
个人永久性免费-Excel催化剂功能第97波-快递单号批量查询物流信息
电商时代,快递已进千万家,做电商零售行业的,快递信息的再挖掘,也显得更有意义,是数据精细化运营中必不可少的一环. 一般站在系统的角度,数据用于业务流转的增删改查使用,而对于分析需求来说,这些业务系统里 ...
php 连续打印设置,教你如何设置打印机连续打印销售单/快递单的方法
刚安装上针式打印机时,真的不知道这个连续打印销售单怎么设置,查看了很多资料,写的是很详细,很多专业术语和操作,最终经过自己的摸索,自己总结了一套设置打印机连续打印销售单.快递单的方法,很实用.简单.快 ...
快递单号如何批量查询呢
我们都知道,做电商或物流行业的朋友,为了可以及时掌握大批量集中发出的快递信息的物流状态,都需要对快递单号进行查询,传统的一个个查询快递的方法早已落伍,为了提高效率,我们可以利用一些辅助工具来批量查询快 ...
教你怎么淘宝导入快递单号批量发货
DUMUZ是什么? Dumuz是一款软件产品,可模拟人在电脑上的不同系统之间操作行为, 替代人在电脑前执行具有规律与重复性高的办公流程. 目前基于实际业务场景在软件搭建了部分天猫/淘宝/京东网页数据 ...
用条码标签打印软件制作快递单
每个快递公司的快递单上都印刷有条码,一张一个条码,绝对不能重复.快递公司追踪快件的信息主要就是追踪每个条码单号,这样能保证快件信息的准确. 因为我们公司经常要给客户快递光盘,每次都要一张张的手写收寄双 ...

Excel--如何使用EXCEL连续打印快递单

Excel--如何使用EXCEL连续打印快递单相关推荐

最新文章

热门文章