VBA按照模板批把数据批量和单个打印

SCWYZJ

求助:部门经常要采购物资，需要下采购单，一个一个的去填写较慢，想批量按照模板打印成PDF和直接打印（详见附件），来此求助。烦请老师帮慢看看，如何写VBA代码。谢谢

ykcbf1100

完成第一个代码，批量打印成PDF文件。生成后的PDF文件在按部门生成的子目录中。

其它几个再说吧。

ykcbf1100

生成PDF文件

1. Sub ykcbf()   '//2024.7.16
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     Set fso = CreateObject("Scripting.FileSystemObject")
   
6.     p = ThisWorkbook.Path & ""
   
7.     arr = Sheets("数据").UsedRange
   
8.     b = [{1,5,6,7,8,9,10,11,4}]
   
9.     For i = 5 To UBound(arr)
   
10.         If Val(arr(i, 1)) Then
    
11.             s = arr(i, 3) & "|" & arr(i, 2)
    
12.             If Not d.exists(s) Then Set d(s) = CreateObject("Scripting.Dictionary")
    
13.             d(s)(i) = i
    
14.         End If
    
15.     Next
    
16.     For Each k In d.keys
    
17.         t = Split(k, "|")
    
18.         Sheets("模板").Copy
    
19.         Set wb = ActiveWorkbook
    
20.         m = 0
    
21.         With wb.Sheets(1)
    
22.             .[b2] = t(0): .[i2] = t(1)
    
23.             .Name = t(0)
    
24.             .UsedRange.Offset(3).ClearContents
    
25.             For Each kk In d(k).keys
    
26.                 m = m + 1
    
27.                 .Cells(m + 3, 1) = Format(m, "00")
    
28.                 For j = 2 To UBound(b)
    
29.                     .Cells(m + 3, j) = arr(kk, b(j))
    
30.                 Next
    
31.             Next
    
32.             .[a4].Resize(m, UBound(b)).Borders.LineStyle = 1
    
33.         End With
    
34.         p1 = p & t(0) & ""
    
35.         If Not fso.FolderExists(p1) Then fso.CreateFolder p1
    
36.         wb.Sheets(1).ExportAsFixedFormat xlTypePDF, p1 & t(0) & Format(t(1), "yyyymd") & ".pdf"
    
37.         wb.Close 0
    
38.     Next
    
39.     Application.ScreenUpdating = True
    
40.     MsgBox "OK！"
    
41. End Sub
    

复制代码

liulang0808

生成pdf文件，楼主另外两个打印，所谓的A4纸打印，先把区域设置好，然后添加数据打印即可
单张打印具体指什么，不大清楚。
批量打印室按照批量转pdf格式处理的，供参考

SCWYZJ

老师，为什么批量打印出的PDF,有些正常，有些如图所示，缩成一团了/

SCWYZJ

还有就是，我想增加一个提取按钮，依据“部门”和“日期”单条件或双条件提取数据到模板中，（序号不用考虑），如果符合条件 的数据超过25条，自动去除后面的数据，保证模板样式不变。谢谢

fanion

人家码农都费时间和精力的，况且两位版竹已经按你的要求做出了好的结果，也不给打赏下小红花，真是不见外。。。。。

SCWYZJ

新增按钮，我总自己学着弄好聊，谢谢各位老师的热心帮助