怎样批量自动打印小票呢

woniu3721 · 发表于 2022-12-16 21:48

两个模板:一个打送货小票一个打自提小票，送上门的用第1个，自提的用第2个，区别是黄色部分的行标题有所不同，但获取数据源的字段完全是相同的。表2是数据源，怎样实现用VBA批量打印小票出来，当然如果能2个模板合二为一智能判断则更好。

批量打小票.zip (11.3 KB, 下载次数: 9)

你地铁图 · 发表于 2022-12-16 22:09

数据挺规律的，把D和E列删除转置粘贴就OK

鄂龙蒙 · 发表于 2022-12-17 07:38

【XSD-20211216-001】 2个同号怎么处理？

liulang0808 · 发表于 2022-12-17 09:16

Sub 按钮1_Click()
arr = Sheets("订单列表").UsedRange
For j = 2 To UBound(arr)
      If arr(j, 2) = "送货上门" Then
         c = 2
      Else
         c = 13
      End If
      Cells(3, c) = arr(j, 1)
      Cells(4, c) = arr(j, 2)
      Cells(5, c) = arr(j, 3)
      Cells(6, c) = arr(j, 6)
      Rem 自行补齐数据
      Cells(1, c - 1).Resize(17, 2).PrintOut
Next j
End Sub

liulang0808 · 发表于 2022-12-17 09:17

代码未测试，楼主自行补齐测试看看

woniu3721 · 发表于 2022-12-17 12:49

liulang0808 发表于 2022-12-17 09:17
代码未测试，楼主自行补齐测试看看

已经补齐参数，另外我把这个If arr(j, 2) = "送货上门" 里面的2改成了12，要不然不起作用。没有装打印机，是用系统自带导出pdf的功能测试的，开始的时候有空白票，后来我把第2个表里面没有数据的地方，通通删除行，这就对了！

woniu3721 · 发表于 2022-12-17 14:45

liulang0808 发表于 2022-12-17 09:16
Sub 按钮1_Click()
arr = Sheets("订单列表").UsedRange
For j = 2 To UBound(arr)

有点问题，每次都要出现arr 数量不对，都是17，不管源数据是多少条。我已经修改了源数据的精确区域，还是如此要出空票，有时候不止17条的时候也是只有17条，不知是何原因问题.JPG

生成小票2.zip (22.27 KB, 下载次数: 4)

woniu3721 · 发表于 2022-12-17 23:46

鄂龙蒙发表于 2022-12-17 07:38
【XSD-20211216-001】 2个同号怎么处理？

最好是能够合并在一张小票上，因为本来就是一个订单的买的多个商品，商品名称.规格.数量.单价.运费.金额.循环显示，其他项目不变。

		自动登录	找回密码
密码			免费注册

[求助] 怎样批量自动打印小票呢