抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

csy_1983 · 发表于 2010-4-11 10:00

我新手，我学习，谢谢楼主了

lbl016 · 发表于 2010-4-11 11:34

原帖由 kevinchengcw 于 2010-4-11 09:21 发表

把打印按钮那里替换成这样就不需要按两次了

Private Sub CommandButton1_Click()
For i = 1 To f_ShCOunt
If Me.Controls("CheckBox" & i) Then Sh = Sh & " " & Me.Controls("CheckBox" & i).Ca ...

谢了，非常好，
现在吸虽然打印按钮不按两次了但封2出现打印两次的情况，这个问题又如何解决呢？

[ 本帖最后由 lbl016 于 2010-4-11 13:45 编辑 ]

lbl016 · 发表于 2010-4-11 13:45

现在虽然打印按钮不按两次了，但封2却出现打印两次的情况，这个问题又如何解决呢？

iqpl98 · 发表于 2010-4-11 17:12

谢谢，支持一下楼主的共享精神。

qlzy · 发表于 2010-4-11 19:57

谢谢提供这么好的工具！！！！！！！！！

kevinchengcw · 发表于 2010-4-11 20:32

原帖由 lbl016 于 2010-4-11 13:45 发表
现在虽然打印按钮不按两次了，但封2却出现打印两次的情况，这个问题又如何解决呢？

直接这样不就得了，搞太高级了反而出错
Private Sub CommandButton1_Click()
      If Me.Controls("CheckBox1") And Me.Controls("CheckBox2") Then
         Sheets(Me.Controls("checkbox1").Caption).PrintOut
         Sheets(Me.Controls("checkbox2").Caption).PrintOut
      ElseIf Me.Controls("CheckBox2") Then
         Sheets(Me.Controls("checkbox2").Caption).PrintOut
      ElseIf Me.Controls("CheckBox1") Then
         Sheets(Me.Controls("checkbox1").Caption).PrintOut
      End If
End Sub

lbl016 · 发表于 2010-4-11 23:00

原帖由 kevinchengcw 于 2010-4-11 20:32 发表

直接这样不就得了，搞太高级了反而出错
Private Sub CommandButton1_Click()
If Me.Controls("CheckBox1") And Me.Controls("CheckBox2") Then
Sheets(Me.Controls("checkbox1").Caption ...

还是不对

lbl016 · 发表于 2010-4-11 23:02

原帖由 kevinchengcw 于 2010-4-11 20:32 发表

直接这样不就得了，搞太高级了反而出错
Private Sub CommandButton1_Click()
If Me.Controls("CheckBox1") And Me.Controls("CheckBox2") Then
Sheets(Me.Controls("checkbox1").Caption ...

还是不对，是封1的发证日期打印的问题

xiaoxiaotat · 发表于 2010-4-11 23:58

既然看了，就一定要关注到底！

绿色沙漠风暴 · 发表于 2010-4-12 12:27

人气这么旺一定是好贴，收藏了，谢谢！

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

[分享] 抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)