送货单打印保存模板

sorrowlee · 发表于 2018-7-21 14:55

学习了，谢谢

suan228 · 发表于 2018-7-27 15:35

这个表的功能是我想要的，但我是个小白，想加几个小功能，如附加件所示，请高手不吝赐教，先谢谢了

待实现的送货单模板20180727.rar (83.23 KB, 下载次数: 75)

ledou87 · 发表于 2018-8-3 21:01

aman1516 发表于 2014-9-6 12:55
按实际应用中的一般情况修改了一下，注意其它各工作表代码亦作对应修改，请测试：

谢谢分享好东西

ddjjdxf · 发表于 2018-8-11 15:45

你好，我想問一下怎么可以导出为PDF或者xls，不要htm。

bpw0258 · 发表于 2018-8-13 08:48

学习了，谢谢分享！

hans4301 · 发表于 2018-8-29 20:02

suan228 发表于 2018-7-27 15:35
这个表的功能是我想要的，但我是个小白，想加几个小功能，如附加件所示，请高手不吝赐教，先谢谢了

WIN10系统能用吗？

dear小菜 · 发表于 2018-9-2 15:48

楼主，请帮忙改改附件能不能设为默认1/2张A4纸连续针式打印，然后单号是年+月+日+（流水号自动+1），还有双击产品名称时选择时要往后拉才看到颜色规格，能不能往前调整一下，不用往后拉。

dear小菜 · 发表于 2018-9-3 08:29

对了，补充一下，打印那里还是出错，按你前面回复的加了END WITH语句也是打不了，然后产品名称搜索能不能改成按编码搜索？因为按名称搜索出来要拉动滚动条才看到后面的规格型号，不太方便选择。单号年+月+日+（流水号自动+1）如何改不了，能不能设成年+月+流水号自动+1就可以。

aman1516 · 发表于 2018-9-3 20:52

dear小菜发表于 2018-9-3 08:29
对了，补充一下，打印那里还是出错，按你前面回复的加了END WITH语句也是打不了，然后产品名称搜索能不能改 ...

  1）ListBox1的宽度、高度在下面代码设置
      With Me.ListBox1
            ......
            .Width = Target.Width * 6       '宽度为6倍C列宽度
            .Height = Target.Height * 7       '高度为7倍行高
         End With
2）打印，要指定设置项：
Private Sub CommandButton4_Click() '打印
'Application.Dialogs(xlDialogPrinterSetup).Show '一句话代码，调出系统对话框手动设置选择打印区域
'----------------------------------------------
With ActiveSheet.PageSetup
   .PaperSize = xlPaperA5       '设置纸张的大小为A5纸
   .Orientation = xlPortrait       '该属性返回或设置页面的方向。wpsOrientPortrait 纵向；wpsOrientLandscape 横向
   .LeftMargin = Application.InchesToPoints(0.50955)
   .RightMargin = Application.InchesToPoints(0.50955)
   .TopMargin = Application.InchesToPoints(0.50955)
   .BottomMargin = Application.InchesToPoints(0.50955)
   .HeaderMargin = Application.InchesToPoints(0.03937)
   .FooterMargin = Application.InchesToPoints(0.03937)
   .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 With
End Sub
3）生成编码：
Private Function 生成编号() As String
…………
   生成编号 =  theYear & theMonth & theDay & Format(CVar(theStrMaxNumNow) + 1, "00") '这句就是编码格式，自己随便改
End Function

aman1516 · 发表于 2018-9-3 21:01

相应代码语句改下就行了，详见件：

送货单模板201809.rar (77.91 KB, 下载次数: 404)

		自动登录	找回密码
密码			免费注册

[分享] 送货单打印保存模板