送货单打印保存模板

绿色禾苗

订单查询怎么用啊

a18b88

大师你好！对于我这样的小白来说，你这个模版太强大，我有个自己的表格，希望可以帮忙改一下，不胜感激！！！ 送货单样式（修订）.rar (65.21 KB, 下载次数: 63)

2017-10-1 11:37 上传

点击文件名下载附件

aman1516

因用到listbox，所以出现闪退情况时，下在方案可解决再完善一下
列表框实现鼠标滚轮滚动Demo
http://club.excelhome.net/thread-1259440-1-1.html
(出处: ExcelHome技术论坛)

编号993

谢谢分享，学习。

维-维

这个太强大了~

维-维

可以帮我看看这个吗？我自己修改了一下，还差一点点http://club.excelhome.net/thread-1374620-1-2.html

gwzywi

这个太强大了，楼主能不能帮我去除产品编码和颜色这两项呢

shengli917

楼主你好，我想导出的时候的文件名保存为单据编号，以免数据重复，这个应该怎么修改呀，还请指教。

aman1516

shengli917 发表于 2017-12-29 18:48
楼主你好，我想导出的时候的文件名保存为单据编号，以免数据重复，这个应该怎么修改呀，还请指教。

Private Sub CommandButton5_Click() '导出
On Error Resume Next '
Dim x As Long
Dim t
x = Range("a65536").End(xlUp).Row
Dim bname As String
Dim cname As String
bname = Range("b5")       '客户名称
cname = Range("g4")       '订单编号
Range("A1:h" & x).Select
Range("h" & x).Activate
t = MsgBox("按 是 将工作表导出为.PDF格式，按 否 将工作表导出为.htm网页格式，导出文件保存在同文件目录下。", vbYesNo, "工作表导出")
If t = vbYes Then
'输出为.PDF
   Range("A1:h" & x).Select
   Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ActiveWorkbook.Path & "\" & bname & "-出货清单-" & cname & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

Else
   '导出为.htm网页
   With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
              ActiveWorkbook.Path & "\" & bname & "-出货清单-" & cname & ".htm", "发货单" _
              , "", xlHtmlStatic, "Luo_0412", "")
        .Publish (True)
        .AutoRepublish = False
   End With
   '指定单元格区域：
   'With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
   '     ActiveWorkbook.Path & "\出货清单-" & cname & ".htm", ActiveSheet.Name, "$A$1:$J$21", xlHtmlStatic, "Luo_0418", _
   '              ActiveSheet.Name & " ")
   '        .Publish True
   '       .AutoRepublish = False
   '    End With
End If
End Sub

自己根据需要修改这三处就行了
bname = Range("b5")       '客户名称
cname = Range("g4")       '订单编号
输出文件名称：
bname & "-出货清单-" & cname & ".pdf"
bname & "-出货清单-" & cname & ".htm"

shengli917

aman1516 发表于 2017-12-29 19:21
Private Sub CommandButton5_Click() '导出
On Error Resume Next '
Dim x As Long

谢谢楼主了