wps做送货单!怎么设置单号保布后或者打印后自动加1????会的大师请详解一下!万分感谢!

wps做送货单!怎么设置单号保布后或者打印后自动加1????会的大师请详解一下!万分感谢!如

Sub 指定区域打印()
Dim a%
?'确任打印区域
a = MsgBox(Selection.Address(0, 0) & Chr(13) & _
? ? ? ? ? "是,请按“确定”。" & Chr(13) & _
? ? ? ? ? "不是,请按“取消”,重来。", vbOKCancel, "是下面的打印区域吗?")
?'不是打印区域,结束
If a = 2 Then End
'将选择区域设为打印区域
ActiveSheet.PageSetup.PrintArea = Selection.Address
?'打印1页
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
====================================
Sub 打印10分钟歇10分钟()
1 n = InputBox("请输入打印的总份数")
On Error Resume Next
If n * 1 CInt(n) Then GoTo 1
'确定每次打印的份数
For i = 0 To n Step y
? If i y > n Then
? x = y n - i ?'确定最后一次打印的份数(多打印n-i份,>=10分钟)
? ElseIf i = 0 Then x = y - 1 '确定第一次打印的份数(少打印1份,= TotalpageNum Then Exit Sub '若打印完毕就结束
? ?Start = Timer ? ?' 设置开始暂停的时刻
? ?PauseTime = 10 ' 设置暂停时间10分钟(600秒)
? ?Do While Timer
温馨提示:答案为网友推荐,仅供参考