点击打印按钮时必须打印该单据、同时保存并新增单据，求VBA代码。

lexianfeng 发表于 2025-12-4 11:58
提示CF未定义怎么办？

参考http://bbs.kuaibiao.cn/thread-5194-1-1.html

提示CF未定义怎么办？

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'按钮/标签点击事件

复制代码

lexianfeng 发表于 2025-12-4 11:58
提示CF未定义怎么办？

参考http://bbs.kuaibiao.cn/thread-5194-1-1.html

提示CF未定义怎么办？

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'按钮/标签点击事件

复制代码