全线快递单号查询_列表网问答
全线快递单号查询
全线快递单号查询
『全线快递单号查询』相关搜索
(C) 列表网&京ICP证100421号&京ICP备号-1&琼公网安备08用word文档制作的快递单模版，发送打印后，打印机感觉像卡住似的打几个乱码之后，就把快递单划出来。_百度知道
用word文档制作的快递单模版，发送打印后，打印机感觉像卡住似的打几个乱码之后，就把快递单划出来。
/view/dc1ec5da71a0://wenku://wenku.html" target="_blank">/view/dc1ec5da71a0用淘打打印就是正常打印，DPK8600E 富士通
我是按着这个帖子做的<a href="http.baidu
提问者采纳
需要增加润滑、可能是前一个打印任务没有完成，清理打印任务，缺油了、打印机滑竿太干。4、打印机数据线拔掉重新装上3、重新安装打印机驱动程序21
应该都不是的
毕竟我淘打连打快递单都没问题
如果淘打打印真的没问题，其他程序打印也没问题，只能考虑word快递单模板的问题了，可能设计的文本框中有些有问题。建议：1、删除word公用模板，重新打开word文档2、重新做一个快递单模板试试3、其实用excel做快递单打印模板、管理地址信息更方便。如果你的地址信息非常多，建议用excel或access管理。
excel的表一中：各单元格的大小按照你要打印的快递单格式设计好，其中要打印的内容和非打印的内容要在不同的单元格。表二存放所有客户的姓名、地址1、地址2（根据快递单分行情况，在表二中分段存入）、电话等等。把表二所有的内容定义为“地址”然后表一中姓名项为手工输入项，其他内容用vlookup函数自动引入。 以后每次打印，只需要输入姓名，其他内容会自动导入，点打印按钮就可以了。
不懂 能不能做个图文教程 发给我
制作教程需要很多时间，你把邮箱发给我：，我帮你做一个简单模板，你自己略微修改就可以了。
提问者评价
原来是这样，感谢！
其他类似问题
为您推荐：
word文档的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Function kdcx(kd, orderid)Dim Err, url, kdtime, link, Errcode, StatusSelect Case kd
'此处支持的快递公司很多的
Case "申通"
kd = "shentong"
Case "圆通"
kd = "yuantong"
Case "优速"
kd = "yousu"
Case "龙邦"
kd = "longbang"
Case "城市"
MsgBox "暂时不支持此快递，可以联系管理员添加！"
kdcx = "暂时不支持此快递"
Exit FunctionEnd SelectSet http = CreateObject("Microsoft.XMLHTTP")url = "/rest/?key=xxxx&order=" & orderid & "&id=" & kd & "&ord=desc&show=xml"http.Open "get", url, Falsehttp.sendWebContent = http.responsetext'MsgBox WebContentSet objDom = CreateObject("Microsoft.XMLDom")objDom.async = FalseobjDom.LoadXML (WebContent)If objDom.ReadyState & 2 Then
Set Item = objDom.getElementsByTagName("SyncResponseEntity") '读取页面上指定区域
For i = 0 To (Item.Length - 1)
Status = Item.Item(i).getElementsByTagName("status").Item(0).Text
If Status = 1 Then
kdcx = Status
Errcode = Item.Item(i).getElementsByTagName("errcode").Item(0).Text
' kdtime = Item.Item(i).getElementsByTagName("time").Item(0).Text
'link = Item.Item(i).getElementsByTagName("content").Item(0).Text
MsgBox "查询数据还未准备就绪。状态：" & objDom.ReadyState & "。"End IfSet http = NothingSet objDom = NothingSelect Case Errcode
Case "0000"
Err = "无错误"
Case "0001"
Err = "传输参数格式有误"
Case "0002"
Err = "用户编号(uid)无效"
Case "0003"
Err = "用户被禁用"
Case "0004"
Err = "授权key无效"
Case "0005"
Err = "快递代号(id)无效"
Case "0006"
Err = "访问次数达到最大额度"
Case "0007"
Err = "查询服务器返回错误"
Err = "查询出现未知错误"End SelectSelect Case Status
Status = "未更新的单号"
Status = "查询异常"
Status = "暂无记录"
Status = "在途中"
Status = "派送中"
Status = "已签收"
Status = "拒签收"
Status = "疑难件"
Status = "无效单"
Status = "超时单"
Status = "签收失败"
Status = "快递状态未知情况"End Selectkdcx = StatusEnd FunctionSub deletebutton() '删除工具栏和菜单的子程序Dim tempbar As CommandBar '定义临时工具栏变量On Error Resume Next '该语句用于忽略错误mandBars("Menu Bar").Reset '重新设置Word XP的主菜单，即删除新建的菜单For Each tempbar mandBars '通过&For Each&Next&语句遍历Word XP所有的工具栏If tempbar.Name = "快递查询" Then '如名称和新建的工具栏相同tempbar.Visible = False '设置为不可视tempbar.Delete '删除该工具栏End IfNextEnd SubSub addbutton() '创建工具栏和菜单并设置属性的子程序
Call deletebutton
'调用删除工具栏和菜单的子程序
Set Obj_Toolbar = mandBars.Add("快递查询") '新建工具栏，&快递查询&代表工具栏的名称
Set Obj_Toolbar_button = Obj_Toolbar.Controls.Add(Type:=msoControlButton, ID:=1) '新建工具栏按钮
With Obj_Toolbar_button '设置按钮的属性
.Caption = "查询快递状态"
.Style = msoButtonIconAndCaption
.FaceId = 1018
.OnAction = "s123"
With Obj_Toolbar '设置工具栏的属性
.Visible = True '工具栏可视
.Enabled = True '工具栏可用
.Position = msoBarTop '工具栏置顶
End WithEnd SubPrivate Sub s123()
' Call yyy
lstRo = Cells(Rows.Count, 1).End(xlUp).Row
istart = InputBox("请你输入你想查询的开始行号", "开始行号", "2")
If istart = "" Then Exit Sub
iend = InputBox("请你输入你想查询的结束行号", "结束行号", lstRo)
If iend = "" Then Exit Sub
With Cells(1, 11)
.Value = "快递状态"
.Font.Bold = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
For Ro = istart To iend
If Cells(Ro, 9) && "" And Cells(Ro, 10) && "" Then
Cells(Ro, 11).Value = kdcx(Cells(Ro, 9), Cells(Ro, 10))
MsgBox "查询已经完毕！"End Sub　　能支持国内多家快递公司快递单号查询，顺丰快递、圆通快递、申通快递、ems等都支持。key可以到快递单号查询网上面申请。&&调用参数：参数名称类型是否必需描述keystring是授权密钥，点击此处 [&快递API接口申请入口&] 即可申请orderstring是快递单号，请注意区分大小写idstring是快递代号，如：圆通（yuantong）、申通（shentong），点击此处 [&查看完整快递代号&]ordstring可选排序规则：&asc：按时间旧到新排序，&desc：按时间新到旧排序，&不传默认值：ascshowstring可选返回类型：&json：返回json字符串，&xml：返回xml字符串，&html：返回html字符串，&不传默认值：jsonQQ上聊天时删除QQ聊天记录
&& 发布时间：
【百度唯一认证】专业黑客qq:】专业破解 微信,陌陌,Q.Q,邮箱以及各种聊天记录恢复与查询,专业手机定位,通话清单,短信内容,网站入侵等其他业务是您值得信赖的正确首选！另外该团队为每一个需要调查的委托人郑重承诺:保证对委托人所提的一切线索严格保密,不与任何人透露有关本调查的任何情况及委托方相关的信息
,她说不定能多活几年。乱哄哄的打成一锅粥。悠然道:你按一下胸口左下三寸那个位置,看可有什么异样感觉?在草地上是一条鹅卵石的小路。接下来的画面很混乱。钱朵朵的思绪跨越的快,她由杏花又想到了桃花,又想到曾经住在桃花坞的弘历,她的心便有些沉甸甸的,弘历对弘瞻的防范,她焉能不知?更奇异的是,他全身的劲力竟然丝毫也提不起来!保持沉默是最好的办法啦!呃?我连忙把最后一粒瓜子仁咽了下去刷的一下站了起来摆了个宫廷式的站姿,左右嘴角分别上扬45度等待他的后话。碧水寒看上去咬牙切齿的:两个臭小鬼,干什么非要跑到这里来比武?我的锦绣园,我的仙女兰,这下全毁了!二人一虎找到一个僻静处。……………………………………难道――宫湮陌对自己动情了?弘昼想不出法子推脱,闷头喝了两口茶,忽的说道:朵朵,你这是什么茶?好香啊!皇阿玛就是对你偏心,好东西都给你了,我都从来没喝过这样的好茶。碧东流却不再接,他露出了一个比哭还要难看的笑容,转身向书案走去。宫湮陌悠然看着她。钱朵朵见哥哥这么拘谨,赶忙对旁边的秦公公和小禄子说道:本宫要和钱知府说会儿话,你们先退下吧!你――弗莱丝冷冷地说
QQ上聊天时删除QQ聊天记录
{skeyword}
{skeyword}
{skeyword}
{skeyword}
{skeyword}
{skeyword}
　 　 　 　 　 　 　 　 　
　 && 　 　 　 　 　 　 　 　 　 &快递批量查询助手下载 v 最新版 - 办公软件 - ARP下载
您当前的位置： →
下载栏目导航