[已解决]打印成功自动变更单号并保存，否就不变？

我的故事

看一看         
.

mytata

回复谢谢，学习

mytata

回复谢谢，学习

zjwsm

六郎 发表于 2010-6-25 16:20
看看是啥东东

{:35:}{:35:}

sendsend

看看教授的答案！

551782666

..........................................................................

jdzln1229

看看，学习下

zjdh

帅帅挑红了这个帖子

zjdh

1. Sub dayin()
   
2.     Dim ARR(1 To 1, 1 To 12)
   
3.     Set TJ = Sheets("统计表")
   
4.     Row1 = TJ.Range("A65536").End(xlUp).Row
   
5.     Erase ARR
   
6.     With Sheets("送货单")
   
7.         .PrintOut
   
8.         x = MsgBox("是否打印成功", 4, "打印")
   
9.         If x = vbYes Then
   
10.             ARR(1, 1) = .[g1]
    
11.             ARR(1, 2) = .[g4]
    
12.             ARR(1, 3) = .[b3]
    
13.             ARR(1, 4) = .[b4]
    
14.             ARR(1, 5) = .[a6]
    
15.             ARR(1, 6) = .[g3]
    
16.             ARR(1, 7) = .[b6]
    
17.             ARR(1, 8) = .[c6]
    
18.             ARR(1, 9) = .[d6]
    
19.             ARR(1, 10) = .[e6]
    
20.             ARR(1, 11) = .[g6]
    
21.             ARR(1, 12) = .[b8]
    
22.             For I = 3 To TJ.Range("A65536").End(3).Row
    
23.                 If ARR(1, 1) = TJ.Range("A" & I) Then
    
24.                     If MsgBox("该销售单号已存在，是否覆盖记录？", vbYesNo) = vbNo Then Exit Sub
    
25.                     TJ.Range("A" & I).Resize(1, 12) = ARR
    
26.                     GoTo 10
    
27.                 End If
    
28.             Next
    
29.             TJ.Range("A" & Row1 + 1).Resize(1, 12) = ARR
    
30. 10          .[g1] = TJ.Range("A65536").End(3) + 1
    
31.             .[b3] = ""
    
32.             .[a6].ClearContents
    
33.             .[g3].ClearContents
    
34.             .[b6].ClearContents
    
35.             .[c6].ClearContents
    
36.             .[d6].ClearContents
    
37.             .[e6] = ""
    
38.             .[g6].ClearContents
    
39.             .[b8] = ""
    
40.         End If
    
41.     End With
    
42. End Sub
    

复制代码

风云0775

打印保存怎么设置的？