excel打印送货单设置自动生成流水号

2024-11-10 11:29:39

推荐回答（4个）

回答（1）：

亲，这个需要VBA编程解决。假设你的要打印的这个表的工作表名称为“Sheet1”，流水号在F2单元格。

下面的代码可以实现先递增流水号再打印。注意，当你要打印第一个编号时，请先把编号设为NO.201500000。

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Thisworkbook上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
    Application.EnableEvents = False
    [f2] = Left([f2], 7) & Format(Right([f2], 5) + 1, "00000")
    ActiveSheet.PrintOut
    Application.EnableEvents = True
End If
End Sub

回答（2）：

可以使用这款现成的，勾选递增打印。

回答（3）：

还可以自动清空表格，用VBA编程实现。

回答（4）：

按ALT+F11 ,
PrivateSub Workbook_BeforePrint(Cancel As Boolean)
n = Val(Replace([M1], "本文档已经累计打印", ""))
[M1] = "NO.201500000" & n +1
End Sub