[已解决]标签执行两次打印

skiss10086

刚开始学习VBA，写了一张简单的代码，现在需要执行新的需求，求帮助
需求：现在的代码可以实现标签的范围打印，但是每张标签只能打印1张，如何通过按钮的选择，实现双张打印

例如：当按钮选择在双张时，点击“打印标签”，就打印出两张8，两张9，两张10，代码如何写，目前是点击两次打印标签，但是标签不连续在一起

最佳答案

月排行榜 / 总排行榜

chart888

2017-6-30 11:15

1. Sub dayin()
   
2. Dim idate As Date
   
3. idate = Now
   
4. gs = [d1]
   
5. cs = [E1]
   
6. If OptionButton1.Value = True Then
   
7.     AA = 1
   
8. Else
   
9.     AA = 2
   
10. End If
    
11. For i = gs To cs
    
12.     j = [E3]
    
13.     ActiveSheet.Cells(6, 3) = " 箱 号: PI0" & j & "_" & Format(i, "00")
    
14.     ActiveSheet.Cells(8, 3) = " 生产日期:" & Format(idate, "dd/m/yyyy")
    
15.     ActiveSheet.PrintOut Copies:=AA
    
16. Next
    
17. End Sub
    
18. 
    
19. Private Sub OptionButton1_Click()
    
20. OptionButton2.Value = False
    
21. End Sub
    
22. 
    
23. Private Sub OptionButton2_Click()
    
24. OptionButton1.Value = False
    
25. End Sub

复制代码

跳转到最佳答案楼层

chart888

1. Sub dayin()
   
2. Dim idate As Date
   
3. idate = Now
   
4. gs = [d1]
   
5. cs = [E1]
   
6. If OptionButton1.Value = True Then
   
7.     AA = 1
   
8. Else
   
9.     AA = 2
   
10. End If
    
11. For i = gs To cs
    
12.     j = [E3]
    
13.     ActiveSheet.Cells(6, 3) = " 箱 号: PI0" & j & "_" & Format(i, "00")
    
14.     ActiveSheet.Cells(8, 3) = " 生产日期:" & Format(idate, "dd/m/yyyy")
    
15.     ActiveSheet.PrintOut Copies:=AA
    
16. Next
    
17. End Sub
    
18. 
    
19. Private Sub OptionButton1_Click()
    
20. OptionButton2.Value = False
    
21. End Sub
    
22. 
    
23. Private Sub OptionButton2_Click()
    
24. OptionButton1.Value = False
    
25. End Sub

复制代码

skiss10086

chart888 发表于 2017-6-30 11:15

谢谢帮助，就是这样的效果。

skiss10086

chart888 发表于 2017-6-30 11:15

我将这段代码复制其它相同格式的表格中，提示“要求对象”?  怎么解决

chart888

skiss10086 发表于 2017-6-30 13:50
我将这段代码复制其它相同格式的表格中，提示“要求对象”?  怎么解决

你复制到的表格有 OptionButton 这控件吗

skiss10086

chart888 发表于 2017-6-30 14:01
你复制到的表格有 OptionButton 这控件吗

谢谢，已找到原因，就是跟OptionButton 有关，选择了新按钮。