快表软件

标题: 打印时保存并新增VBA代码 [打印本页]

---

作者: geych    时间: 2018-1-14 16:06
标题: 打印时保存并新增VBA代码
点击打印按钮时必须打印该单据、同时保存并新增单据，求VBA代码。 (, 下载次数: 194)

上传

点击文件名下载附件

---

作者: hessen    时间: 2018-1-14 16:06

1. Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
   
2. AW.WorkbookSet.GetLock()
   
3. if e.shape.name="Button 1" then
   
4. CF.Text = "#打印"
   
5. Dim XHTimer As DispatcherTimer = New DispatcherTimer
   
6. XHTimer.Interval = New TimeSpan(0, 0, 0, 1, 0)
   
7. AddHandler XHTimer.Tick, Sub(s1, e1)
   
8. ActiveWorkbook.WorkbookSet.GetLock()
   
9. CF.Text = "#保存并新增"
   
10. ActiveWorkbook.WorkbookSet.ReleaseLock()
    
11. XHTimer.Stop()
    
12. End Sub
    
13. XHTimer.Start()
    
14. 
    
15. End if
    
16. AW.WorkbookSet.ReleaseLock()
    
17. End Sub'按钮/标签点击事件

复制代码

---

欢迎光临 快表软件 (http://bbs.kuaibiao.cn/)

Powered by Discuz! X3.4