[已解决]标签打印问题

skiss10086

求解标签自动打印问题，具体见附件。

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-8-3 14:28

1. Sub aaa()
   
2. Dim m As Byte, st&, fh&, i&, j&
   
3. m = IIf(OptionButton1 = True, 1, 2)
   
4. st = [l13]: fh = [m13]
   
5. For i = st To fh
   
6.   For j = 1 To m
   
7.     [e20] = "'" & Format(i, "00")
   
8.     [d3:e17].PrintOut
   
9.   Next j
   
10. Next i
    
11. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim m As Byte, st&, fh&, i&, j&
   
3. m = IIf(OptionButton1 = True, 1, 2)
   
4. st = [l13]: fh = [m13]
   
5. For i = st To fh
   
6.   For j = 1 To m
   
7.     [e20] = "'" & Format(i, "00")
   
8.     [d3:e17].PrintOut
   
9.   Next j
   
10. Next i
    
11. End Sub

复制代码