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

Question

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

Answer 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