[已解决]连续套打中止打印后,窗体关于打印的按钮失去作用

心灵之舞 · 发表于 2014-4-22 12:42

Application.OnTime Now + TimeValue("00:00:03"), "打印"后，窗体按钮均失灵是什么原因？请论坛里的高人帮助解答

zjdh · 发表于 2014-4-22 13:08

你自己设置了
Private Sub CommandButton7_Click()
中止 = "中止"
End Sub

而所有按钮运行的宏都有判断
If 中止 = "中止" Then
.........
Exit Sub
End If
当然终止啦！！

hwc2ycy · 发表于 2014-4-22 13:14

2楼正解，中止惹的祸。

hwc2ycy · 发表于 2014-4-22 13:15

另外，你的中止打印应该得之前的Ontime

心灵之舞 · 发表于 2014-4-22 13:52

本帖最后由心灵之舞于 2014-4-22 14:21 编辑

那请问如何解决问题呢?我想做一个随时终止打印的按钮,又不影响下一次按钮的使用,当如何时行,单页打印删除if就好了,但连续打印应该如何修改呢,谢谢老师们的指导!

zjdh · 发表于 2014-4-26 15:03

本帖最后由 zjdh 于 2014-4-26 15:07 编辑

心灵之舞发表于 2014-4-22 13:52
那请问如何解决问题呢?我想做一个随时终止打印的按钮,又不影响下一次按钮的使用,当如何时行,单页打印删除if ...

添加一句
Sub 连续打印证书()
If 中止 = "中止" Then
      中止 = "中止"
      中止 = ""
      Exit Sub
End If
n = UserForm1.TextBox4.Text
Call 数据转移连续
......................

其他相关地方也如法泡制

心灵之舞 · 发表于 2014-4-26 17:38

万分感谢！按您的要求已实现完成中止。

		自动登录	找回密码
密码			注册

[已解决]连续套打中止打印后,窗体关于打印的按钮失去作用

相关帖子