送货单打印保存模板

aman1516

另外，还增加了工作表导出为 .htm网页或 .PDF的功能……
见附件：   送货单模板201400421.rar (76.71 KB, 下载次数: 5473)

2014-4-21 23:27 上传

点击文件名下载附件

补充内容 (2016-12-18 12:01):
2016－12－17若干更新（详见69楼附件）：
1）查询改为窗体查询，模糊快速输入单号，不需完整编号对应；
2）[按订单查询结果]工作表中增加全文搜索查询；
3）增加动态添加行，免除局限于8行数据行的限制；……

补充内容 (2020-6-13 00:19):
2020/6/12 补充修订：
1）下拉列表由单选改为多选；
2）修订在下拉列表中滚动鼠标滚轮时闪退的问题；
3）双击C列最末行保留手动插入行，亦可忽略自动插入

详见312楼附件

aman1516

导出亦可用下面代码，手动操作：

Sub savehtm()    '调出系统对话框，导出另存为网页格式。可按整个工作表或按选择单元格区域导出。
i = Application.Dialogs(653).Show
End Sub

aman1516

最新附件增加了打印设置，亦可设定为自定义纸张大小进行打印：

Sub pripage()    '打印设置
'Application.Dialogs(xlDialogPrinterSetup).Show    '一句话代码，调出系统对话框手动设置选择打印区域
'----------------------------------------------
With ActiveSheet.PageSetup
     '按自定义纸张打印
     '注意：需先在打印设置中自定义一个命名为“SHD”的页面尺寸（长21cm*宽14.7cm）
     .PaperSize = xlPaperSHD       '设置纸张的大小为自定义的“SHD”。若为xlPaperA4则为A4纸
     
     .Orientation = xlPortrait        '该属性返回或设置页面的方向。wpsOrientPortrait 纵向；wpsOrientLandscape 横向
     .LeftMargin = Application.InchesToPoints(1.5)
        .RightMargin = Application.InchesToPoints(1.5)
        .TopMargin = Application.InchesToPoints(1.5)
        .BottomMargin = Application.InchesToPoints(1.5)
        .HeaderMargin = Application.InchesToPoints(1)
        .FooterMargin = Application.InchesToPoints(1)
        .PrintGridlines = True
        .CenterHorizontally = True        '页面的水平居中
     '.CenterVertically = True        '页面垂直居中
     .Zoom = False        '将页面缩印在一页内
     .FitToPagesWide = 1
        
     If Range("A6") <> "" Then
        .PrintArea = ""    '取消打印区域
        '.PrintArea = "$A$1:$J$21"
        'Range("A1:J21").PrintOut Copies:=1, Collate:=True    '打印指定区域，直接打印
        Range("A1:J21").PrintOut Copies:=1, Preview:=True, Collate:=True   '打印预览。
     End If
        '上面代码即[a1:j21].PrintOut
End Sub

cindy1999

不錯,谢谢分享!

hgf998431

新的打印不了

aman1516

hgf998431 发表于 2014-5-11 00:40
新的打印不了

With ActiveSheet.PageSetup
      '按自定义纸张打印
      '注意：需先在打印设置中自定义一个命名为“SHD”的页面尺寸（长21cm*宽14.7cm）
      .PaperSize = xlPaperSHD       '设置纸张的大小为自定义的“SHD”。若为xlPaperA4则为A4纸

很多朋友都不会设置，将上面这句直接改成下面的吧：
     .PaperSize = xlPaperA4       '设置纸张的大小为为A4纸

栀子花开oo

谢谢分享，很好用，下载了

fu123

谢谢分享，很好用，下载了

10742545

您做的这个表格非常好用！
原来的表格全部保留，想增加一个出入库功能，需要再加一个表：
“库存表”  功能：根据产品编号和颜色两个条件，自动增减库存表数量。请帮忙

出入库模板-v1.2.rar (60.93 KB, 下载次数: 403)

2014-9-4 15:37 上传

点击文件名下载附件
出入库

aman1516

怎么了，这都不能回复？