[已解决]关于工资表打印问题

BIWENHUHU

有问题请教，谁能帮助我设计个VBA程序能完成在工资表中能自动打印三张小工资表，工资表中有公式每张切换是用按钮操作的

最佳答案

月排行榜 / 总排行榜

搁浅2008

2012-5-7 13:51

1. Sub 打印()
   
2.     Dim i As Long
   
3.    
   
4.     For i = 1 To (Sheet9.Range("A65536").End(xlUp) - 0.9) \ 10 + 1
   
5.         Sheet12.Range("Q4") = i
   
6.         Sheet12.PrintOut
   
7.     Next i
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

搁浅2008

1. Sub 打印()
   
2.     Dim i As Long
   
3.     For i = 1 To 3
   
4.         Sheet12.Range("Q4") = i
   
5.         Sheet12.PrintOut
   
6.     Next i
   
7. End Sub
   

复制代码

BIWENHUHU

搁浅2008 发表于 2012-5-7 11:12

谢谢搁浅2008，再现已经实现连续打印了，麻烦帮助再改进一下，现在是3张，但在实际工作中张数是不确定的，再加入一个判断语句，工资总表中在A列从下往上返到最后一行不为空，用序号除10取整，判断张数赋予i,就可以实现张数不确定的打印

搁浅2008

1. Sub 打印()
   
2.     Dim i As Long
   
3.    
   
4.     For i = 1 To (Sheet9.Range("A65536").End(xlUp) - 0.9) \ 10 + 1
   
5.         Sheet12.Range("Q4") = i
   
6.         Sheet12.PrintOut
   
7.     Next i
   
8. End Sub
   

复制代码

BIWENHUHU

搁浅2008 发表于 2012-5-7 13:51

谢谢了，我是想知道生成工资条和删除工资条这两个按钮是怎么加上的，代码设完了只是按钮不会加