求助EXCEL套打功能实现方法

byanly

yynrzwh 发表于 2023-7-24 18:01

感谢您的帮助，测试有1处问题，
1、合并了数量后，打印出来仍然保留了合并前的信息。


使用limonet的代码，加上您的IF函数带出 数量1，单位件，就实现了我想要的功能。但limonet的代码仍然存在一处问题：打印过后（合并计算后）后改变模板的内容，如果保存了模板就丢失了IF函数。

yynrzwh

1. Sub 打印()
   
2. 
   
3. ph = ThisWorkbook.Path & ""
   
4. arr = Range("D4:E29")
   
5. Set d = CreateObject("scripting.dictionary")
   
6.     For i = 1 To UBound(arr)
   
7.         d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)
   
8.     Next i
   
9. ActiveSheet.Copy
   
10. 
    
11. With ActiveSheet
    
12.     .Range("D4").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
13.    [color=Red] .Range("D" & d.Count + 4 & ":F29").ClearContents'加这行试下[/color]
    
14.     .PrintOut
    
15.     nw = Replace(Now, ":", ".")
    
16.     nm = ph & nw & "装箱清单.pdf"
    
17.     .ExportAsFixedFormat Type:=xlTypePDF, Filename:=nm
    
18. End With
    
19. ActiveWorkbook.Close False
    
20. 
    
21. Set d = Nothing
    
22. End Sub
    

复制代码