用宏可以解决。在Excel窗口同时按Al普图引儿危书t和F11进入宏界面,在左上窗口找到ThisWorkbook,双击它,如下图:
在右边粘贴如下代码:
Private Sub Workbook_Before视优丝任难独Print(Cancel As Boolean)
Dim xStr As String
xStr = Right(Sheets("Sheet1").Range("F5"), 11)
If Left(xStr, 8) = Format(Date, "yyyymmdd") Then
xStr = "LD" & Format(Date, "yyyymmdd") & Right(xStr, 3) + 1
Else
xStr = "LD" & Format(Date, "yyyymmdd") & "001"
End If
Sheets("Sheet1").Range("F5") = xStr
End Sub
粗体部分表示工作表“Sheet1"的单元格F5里是”单号:LD20110709001“,请相应修改。
存盘退出。
功能:当你在Excel里打印时,它判断单号的日期与今天是否一致,如果不一致,F5改为”单号:LD20110710001“;如果一致,单号后加1。然后再打印。
也就是说,打印前生成新单号,而非你要的打印后。(比如,上班开始打印时,它会自动生成当天的第一个单号)