小票动态模板怎么来生成并打印出票

woniu3721

有2个小票模板，一个是送货，一个是自提的。要实现从数据源提取数据到模板中进行连续打印，分成两次来进行操作，因为两个模板的结构和部分标题不一样不能一次性完成。只弄其中一个的代码就行，另外一个就自己依葫芦画瓢。难点主要是在模板的动态部分，源数据中如果有相同的订单号，说明一个单号买了多个产品，他是分行记录的，现就要合并在一个模板内，有的可能买一种商品，有的可能买几种，怎样才能实现模板的动态化。请各大神支一下招


小票生成.zip (12.79 KB, 下载次数: 9)

2022-12-18 21:42 上传

点击文件名下载附件

582766

说说思路吧，先用字典把同单号 不同的提货方式 ，的商品合并在一起 然后写入数据里面，循环数组输出打印

woniu3721

582766 发表于 2022-12-18 22:10
说说思路吧，先用字典把同单号 不同的提货方式 ，的商品合并在一起 然后写入数据里面，循环数组输出打印

思路懂得起，就是写不出来，也不懂字典

3190496160

Sub 小票()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("订单列表")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:q" & r)
End With
For i = 2 To UBound(ar)
    If Trim(ar(i, 12)) = "送货上门" Then
        If Trim(ar(i, 1)) <> "" Then
            d(Trim(ar(i, 1))) = ""
        End If
    End If
Next i
With Sheets("送货上门")
    .UsedRange.Clear
    For Each k In d.keys
        n = 0
        ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
        For i = 2 To UBound(ar)
            If Trim(ar(i, 12)) = "送货上门" Then
                If Trim(ar(i, 1)) = k Then
                    n = n + 1
                    For j = 1 To UBound(ar, 2)
                        br(n, j) = ar(i, j)
                    Next j
                End If
            End If
        Next i
        rs = .Cells(Rows.Count, 2).End(xlUp).Row + 2
        If rs = 3 Then
            rs = 1
        Else
            rs = rs
        End If
        Sheets("生成小票").Rows("1:6").Copy .Cells(rs, 1)
        .Cells(rs + 1, 3) = br(1, 3)
        .Cells(rs + 2, 3) = br(1, 1)
        .Cells(rs + 3, 3) = br(1, 2)
        .Cells(rs + 4, 3) = br(1, 13)
        .Cells(rs + 4, 4) = br(1, 14)
        .Cells(rs + 5, 3) = br(1, 16)
        xh = rs + 6
        For i = 1 To n
            Sheets("生成小票").Rows("7:10").Copy .Cells(xh, 1)
            .Cells(xh, 3) = br(i, 6)
            .Cells(xh + 1, 3) = br(i, 7)
            .Cells(xh + 1, 5) = br(i, 8)
            .Cells(xh + 2, 3) = br(i, 9)
            .Cells(xh + 2, 5) = br(i, 10)
            .Cells(xh + 3, 3) = br(i, 11)
            .Cells(xh + 3, 5) = br(i, 17)
            xh = xh + 4
        Next i
    Next k
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

小票生成.rar (23.39 KB, 下载次数: 16)

2022-12-19 10:28 上传

点击文件名下载附件

woniu3721

3190496160 发表于 2022-12-19 10:28

经测试可以，实现了动态的模板，代码看起来比较复杂，值得去研究一下才能依葫芦画瓢。另外你帮我稍加改动一下，生成的小票不必每一张都在送货上门那个表里面从上到下显示出来，每次显示一个票就行了，或直接输入到打印机打印。

3190496160

woniu3721 发表于 2022-12-19 12:08
经测试可以，实现了动态的模板，代码看起来比较复杂，值得去研究一下才能依葫芦画瓢。另外你帮我稍加改动 ...

这就不是  稍加改动  的问题，自己琢磨琢磨吧。一开始不把自己的真实意图表述清楚，

chengyunpan

      真正的软件级别，VBA万能批量打印、拆分软件。不需改代码，就可以万能套用。复杂的数据引用、格式要求都能简单解决。
      单个、少量、批量操作或者选择性操作都一样方便。
      此软件用于楼主的案例，欢迎大家测试使用，更期待大家能提出宝贵意见。

woniu3721

chengyunpan 发表于 2022-12-19 20:51
真正的软件级别，VBA万能批量打印、拆分软件。不需改代码，就可以万能套用。复杂的数据引用、格式要 ...

照你说的步骤测试了一下，还真的实现了我的模板样式的票样，你肯定是改了代码来适应我的模板的。要不然不可能会自动匹配的。你这个像个软件一样，模块太多了，只能使用，修改的话是无从下手

woniu3721

3190496160 发表于 2022-12-19 18:24
这就不是  稍加改动  的问题，自己琢磨琢磨吧。一开始不把自己的真实意图表述清楚，

好的，那就自己琢磨琢磨看看能否琢磨出来