Office中国论坛/Access中国论坛

标题: 请帮我设定为当天的流水号的送货单 [打印本页]

作者: inkrock 时间: 2010-1-3 23:42
标题: 请帮我设定为当天的流水号的送货单
我想实现打印时自动保存并产生当天的流水号,有没有老师能帮帮我.

作者: pureshadow 时间: 2010-1-4 10:40
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("送货单").Range("h1") = Sheets("送货单").Range("h1") + 1
activeworkbook.Save
End Sub

作者: inkrock 时间: 2010-1-5 00:05
我安你这个放上去了.还是实现不了,你能不能下载下为添加一下试试.麻烦你了.

作者: 方漠 时间: 2010-1-5 09:30
本来想帮你看一下的,下附件还扣了2金币.

不是我在乎这些这些虚拟的东西,但真的没心情看了.

请尊重他人.

作者: pureshadow 时间: 2010-1-5 22:10

我安你这个放上去了.还是实现不了,你能不能下载下为添加一下试试.麻烦你了.
inkrock 发表于 2010-1-5 00:05

代码写在thisworkbook的VBE里，你那里原来有的东西删除。

作者: pureshadow 时间: 2010-1-5 22:20
Sheets("送货单").Range("h1") = Sheets("送货单").Range("h1") + 1
结果的格式是常规，需要改格式的话，外面套FORMAT函数。

作者: pureshadow 时间: 2010-1-5 22:22

本来想帮你看一下的,下附件还扣了2金币.

方漠发表于 2010-1-5 09:30

我在下载的时候没被扣BB啊……
看来有必要问下王站这是怎么回事。

作者: inkrock 时间: 2010-1-6 01:05
:还是搞不清楚喔..晕晕的..

作者: inkrock 时间: 2010-1-6 01:06
还是搞不好.
版主,不好意思.我太笨了,还是试不了.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)