[已解决]打印之后能够清楚指定单元格

love184

    求各位达人帮我解决下这个问题，附件里面的保养单1，我希望在打印完了之后相应填写列能够自动清空，还原到原来的初始状态，就是需要填写的地方都是空白~~~~谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-24 13:45

保养单1.rar (22.49 KB, 下载次数: 11)

2013-6-24 13:45 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

1. Sub 打印后清空()
   
2. 
   
3. 
   
4.     On Error GoTo ErrorHandler
   
5. 
   
6. 
   
7.     If MsgBox("点 确定 后开始打印", vbInformation + vbYesNo) = vbNo Then
   
8.         Exit Sub
   
9.     End If
   
10.    
    
11.     With Application
    
12.         .ScreenUpdating = False
    
13.         .DisplayAlerts = False
    
14.         .EnableEvents = False
    
15.         .Calculation = xlCalculationManual
    
16.     End With
    
17. 
    
18.     ActiveSheet.PrintOut
    
19. 
    
20.     Range("B3,C4,b4,D3,D4,f3,h3,g4,a6:e10,a14:g18,b20,b23,b24,f23").Value = ""
    
21. 
    
22.     With Application
    
23.         .ScreenUpdating = True
    
24.         .DisplayAlerts = True
    
25.         .EnableEvents = True
    
26.         .Calculation = xlCalculationAutomatic
    
27.     End With
    
28.     MsgBox "打印完成，数据清除完毕"
    
29. 
    
30.     Exit Sub
    
31. 
    
32. 
    
33. ErrorHandler:
    
34.     MsgBox Err.Number & vbCrLf & _
    
35.            Err.Description
    
36. 
    
37.     With Application
    
38.         .ScreenUpdating = True
    
39.         .DisplayAlerts = True
    
40.         .EnableEvents = True
    
41.         .Calculation = xlCalculationAutomatic
    
42.     End With
    
43. 
    
44. End Sub

复制代码

hwc2ycy

在工作表中添加一个表单按钮，在VBE中插入一个模块，粘贴代码。
然后按钮指向添加的宏。

hwc2ycy

保养单1.rar (22.49 KB, 下载次数: 11)

2013-6-24 13:45 上传

点击文件名下载附件