[已解决]vba:请老师写下,按钮一键批量打印

aiyawuyi

请老师写下:一键批量打印,总共51张,第1张A1:P16,第二张A18:P33,依次类推

机械考勤分表批量打印.zip (993.47 KB, 下载次数: 6)

2022-9-30 22:11 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

金樽空对月

2022-9-30 22:50

1. Sub myprint()
   
2. Dim x%, y%, sh As Worksheet, rg As Range
   
3. Sheets("生成").Activate
   
4. Set sh = ActiveSheet
   
5. For x = 1 To sh.Range("b65536").End(3).Row + 1 Step 17
   
6.     y = x + 15
   
7.     Set rg = sh.Range("a" & x & ":p" & y)
   
8.     sh.PageSetup.PrintArea = rg.Address
   
9.     sh.PrintOut copies:=1
   
10. Next x
    
11. End Sub

复制代码

跳转到最佳答案楼层

金樽空对月

1. Sub myprint()
   
2. Dim x%, y%, sh As Worksheet, rg As Range
   
3. Sheets("生成").Activate
   
4. Set sh = ActiveSheet
   
5. For x = 1 To sh.Range("b65536").End(3).Row + 1 Step 17
   
6.     y = x + 15
   
7.     Set rg = sh.Range("a" & x & ":p" & y)
   
8.     sh.PageSetup.PrintArea = rg.Address
   
9.     sh.PrintOut copies:=1
   
10. Next x
    
11. End Sub

复制代码

aiyawuyi

金樽空对月 发表于 2022-9-30 22:50

老师,请设置下区间打印,谢谢了