[已解决]如何修改清除按钮使之具有先打印两份后清除功能？

海雨天风007

请老师们帮忙看下  清除数据的宏 做怎样的修改，点击一下具有先打印两份后清除的功能

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-5-20 09:22

1. Sub 清除数据()
   
2.     ActiveSheet.PrintOut Copies:=2
   
3.     Range("B4:B14,k4:k13") = ""
   
4. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub 清除数据()
   
2.     ActiveSheet.PrintOut Copies:=2
   
3.     Range("B4:B14,k4:k13") = ""
   
4. End Sub

复制代码

hwc2ycy

貌似是二张纸了，

1. Sub 清除数据()
   
2.     Application.PrintCommunication = False
   
3.     With ActiveSheet.PageSetup
   
4.         .Zoom = False
   
5.         .FitToPagesWide = 1
   
6.         .FitToPagesTall = 1
   
7.         .PrintErrors = xlPrintErrorsDisplayed
   
8.     End With
   
9.     Application.PrintCommunication = True
   
10.     ActiveSheet.PrintOut Copies:=2
    
11.     Range("B4:B14,k4:k13").ClearContents
    
12. End Sub
    

复制代码

海雨天风007

hwc2ycy 发表于 2014-5-20 09:22

谢谢老师，第一个简单明了。