如何用VB实现按打印时编号自动增加

wxjdonny · 发表于 2016-11-12 09:30

公司有一发料单打印模板，现在想在打印时，按“打印”按钮，触发“Ctrl+P“组合键，调用表格本身打印功能，并且在按打印按钮后，编号自动增加。
编号规格：”K“+”当前日期（四位数，如20161112）“+”序号（如001，002，003）“。
请大虾用VB实现，谢谢！

jsgj2023 · 发表于 2016-11-12 09:45

关注一下，我也想知道如何实现这个功能。

chxw68 · 发表于 2016-11-12 10:07

Sub test()
With Worksheets("sheet1")
.PrintOut
.Range("n2") = "K" & Format(Date, "yyyymmdd") & Format(Val(Right(.Range("n2"), 3)) + 1, "000")
End With
End Sub

复制代码

chxw68 · 发表于 2016-11-12 10:08

详见附件。

lsc900707 · 发表于 2016-11-12 10:10

Sub 序号()
Dim i
If [N2] <> "" Then
i = Right([N2], 3) + 1
[N2] = "K" & Format(Now, "yyyymmdd") & Format(i, "000")
End If
End Sub

zax010 · 发表于 2016-11-12 10:27

Sub Dayin()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
bh = [n2]
If Mid(bh, 2, 8) = Format(Date, "yyyymmdd") Then
bh = "K" & Format(Date, "yyyymmdd") & Format(Val(Mid(bh, 10)) + 1, "000")
Else
bh = "K" & Format(Date, "yyyymmdd") & "001"
End If
[n2] = bh
End Sub

zax010 · 发表于 2016-11-12 10:31

发料单.rar (14.11 KB, 下载次数: 52)

wxjdonny · 发表于 2016-11-12 10:51

chxw68 发表于 2016-11-12 10:07

非常感谢！

但是，在按”打印“时，是直接打印了，没有显示选择打印机的对话框。
需要怎么处理？

jsgj2023 · 发表于 2016-11-12 10:58

wxjdonny 发表于 2016-11-12 10:51
非常感谢！

但是，在按”打印“时，是直接打印了，没有显示选择打印机的对话框。

在.PrintOut之前加上以下这一句即可。
.PrintPreview

2256543052 · 发表于 2016-11-12 20:10

jsgj2023 发表于 2016-11-12 10:58
在.PrintOut之前加上以下这一句即可。
.PrintPreview

我加上这句就死机，一直正在运行，是什么原因？谢谢啦！

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

[求助] 如何用VB实现按打印时编号自动增加