怎样按条件批量调整页面设置

芈雪

  各位大神，我这里有几份购货单需要打印，一份购货单打印到一张纸里，按我上传的这个模板，能怎样批量打印设置啊，因为每张购货单的行数不一样，有什么办法吗，谢谢

Chip_Kenny

1. Sub zz()
   
2. Dim rng As Range, s$, p$, ar, b
   
3. s = [a1].Value: p = 1
   
4. ar = Range("a1:a" & [a65536].End(3).Row).Value
   
5. For i = 2 To UBound(ar)
   
6.     If s = ar(i, 1) Then p = p & "|" & i
   
7. Next
   
8. b = Split(p, "|")
   
9. With Sheets(1)
   
10.     For i = 1 To UBound(b)
    
11.         .HPageBreaks.Add Before:=Cells(b(i), 1)
    
12.     Next
    
13. End With
    
14. End Sub

复制代码

芈雪

Chip_Kenny 发表于 2018-6-20 14:46

非常感谢！！