按固定模板格式批量打印

fanion

      实现要求：
     1.固定模板：因单据需在针式打印机上打印，纸张尺寸为241X279.4mm, 每张打印纸可打印3张入库单，每张入库单最多6条记录，单据格式在左侧已设置好,刚好可以在联式纸上完美打印。
    2.批量打印方式:（以单元格K5到K6作为开始和结束）
       A.数据从工作表“数据库”中取数，按工作表“模板”中的单元格K5和K6来指定批量打印范围(可采取其他更好的办法)；
       B.打印提示：
          (1).当前每个单号的数据记录条数暂没有超过6条记录,需要考虑有单号的数据记录条数超过固定格式6条记录的情况，如超过则记在下一单上(即第二张打印单上)；
          (2).每张纸的打印以3张入库单模板并列做为一次打印输出，如此类推循环打印至结束号；
          (3).尽量不改变模板格式，只提取数据到黄色显示的单元格中。
       在此，先感谢各位老师的无私帮助，谢谢！

3190496160

需要考虑的因素太多了，很繁琐，先留个记号吧

dragonthree

感谢各位老师的无私帮助，难度不大，费时间

wang-way

wang-way

fanion

wang-way 发表于 2024-7-11 14:21

感谢老师的解答，已经可以使用了，非常感谢你无私的帮助！另外，我想将打印输出更换成：”批量打印时集成到一个PDF文件里“，要怎样增加代码呢，再次等待你的解答。。。。。。

边缘码农

一次打印导一个PDF文件，这个简单。
多次打印、导出到同一个PDF文件，有些难。需要使用Adobe Acrobat的API。
百度AI给出了一个代码：

1. Sub PrintToPDF()
   
2.     Dim acroPDDoc As Acrobat.AcroPDDoc
   
3.     Dim acroPDPage As Acrobat.AcroPDPage
   
4.     Dim acroExchApp As Acrobat.AcroExchApp
   
5.     Dim acroExchAVDoc As Acrobat.AcroExchAVDoc
   
6.    
   
7.     ' 创建Acrobat对象
   
8.     Set acroExchApp = CreateObject("AcroExch.App")
   
9.     Set acroExchAVDoc = CreateObject("AcroExch.AVDoc")
   
10.    
    
11.     ' 创建一个新的PDDoc对象
    
12.     Set acroPDDoc = CreateObject("AcroExch.PDDoc")
    
13.     acroPDDoc.Create
    
14.    
    
15.     ' 假设您有一个Excel工作表的数据要打印
    
16.     Dim i As Integer
    
17.     For i = 1 To 5 ' 假设您要打印5次
    
18.         ' 这里添加代码以准备数据并将其添加到PDDoc中
    
19.         ' 例如，可以使用Acrobat的API函数CreatePage()和OpenPage()
    
20.         ' 这里省略具体的数据添加过程
    
21.         
    
22.         ' 打印当前页
    
23.         Set acroPDPage = acroPDDoc.OpenPage(0)
    
24.         ' 使用适当的打印机设置，这里假设是"PDFPrinter"
    
25.         ' 您可能需要根据实际情况修改打印机名称
    
26.         acroPDPage.Print "PDFPrinter", True ' True 表示直接将输出发送到PDF
    
27.         acroPDDoc.ClosePage(acroPDPage)
    
28.     Next i
    
29.    
    
30.     ' 保存PDF文件
    
31.     Dim outputPath As String
    
32.     outputPath = "C:\path\to\your\output.pdf" ' 请替换为实际路径
    
33.     acroPDDoc.Save(1, outputPath) ' 1 表示直接保存为PDF
    
34.    
    
35.     ' 清理对象
    
36.     Set acroPDPage = Nothing
    
37.     acroPDDoc.Close(1) ' 1 表示正常关闭
    
38.     Set acroPDDoc = Nothing
    
39.     Set acroExchAVDoc = Nothing
    
40.     Set acroExchApp = Nothing
    
41.    
    
42.     MsgBox "PDF文件已生成: " & outputPath
    
43. End Sub

复制代码

没有这个API，也没测试过上述代码。仅供参考。

边缘码农

我尝试写了一个纯数组版的，没有使用字典，调试通过。
然后研究了一下4楼使用字典的代码，大体思路一致，算是殊途同归。

fanion

边缘码农 发表于 2024-7-12 08:54
一次打印导一个PDF文件，这个简单。
多次打印、导出到同一个PDF文件，有些难。需要使用Adobe Acrobat的API ...

感谢你给的代码 ，测试没有通过，提示为”用户定义类型未定义“，不知要怎样修改，希望能给出修改的方法，非常感谢你.......如新的代码测试通过，我会将文档重新上传以便后续人员都能够学习和使用。。。

fanion

边缘码农 发表于 2024-7-12 09:41
我尝试写了一个纯数组版的，没有使用字典，调试通过。
然后研究了一下4楼使用字典的代码，大体思路一致， ...

期待老师您能将您所写的代码上传分享，同意的话我将一并写入文档中上传给大家一起分享，谢谢.....