如何逐行复制打印

zjdh

点击行首小方块，即选中！

p_gq

zjdh 发表于 2013-4-27 10:52
点击行首小方块，即选中！

这个我知道，我的意思是根据条件筛选，比如我都选等级2的打印，我想一下就把等级2的全选了

zjdh

这还简单了，先在表中筛选，再运行宏。

1. Sub TEST()
   
2.     Application.DisplayAlerts = False
   
3.     Sheets.Add(after:=Sheets(Sheets.Count)).Name = "TEMP"
   
4.     Sheets("内销库").Range("A2:N" & Sheets("内销库").Range("A65536").End(3).Row).Copy Sheets("TEMP").Range("A1")
   
5.     With Sheets("Sheet1")
   
6.         For I = 1 To Sheets("TEMP").Range("A65536").End(3).Row
   
7.             Sheets("TEMP").Rows(I).Copy .Range("A1")
   
8.             .PrintOut
   
9.         Next
   
10.     End With
    
11.     Sheets("TEMP").Delete
    
12.     Application.DisplayAlerts = True
    
13.     MsgBox "打印结束！"
    
14. End Sub
    

复制代码

zjdh

连续打印2.rar (12.66 KB, 下载次数: 17)

2013-4-27 14:43 上传

点击文件名下载附件

p_gq

zjdh 发表于 2013-4-27 14:42

对的，就是这个意思，谢谢了。

zhlflzh

呵呵 谢谢，帮了我的大忙