关于批量数据单户打印和批量打印的方法

百读谷歌

清风竹- 发表于 2023-3-20 15:16
请看附件。

你好，我有一个表格的打印需求和这个表格非常类似，但是是需要把同一个人的数行数据汇总打印的，请问您方便帮忙看一下能不能修改下代码让我的表格也能按您的方法来执行打印吗？

清风竹-

百读谷歌 发表于 2023-4-6 22:06
你好，我有一个表格的打印需求和这个表格非常类似，但是是需要把同一个人的数行数据汇总打印的，请问您方 ...

请将表格传上来。并说明需求。

百读谷歌

清风竹- 发表于 2023-4-7 07:57
请将表格传上来。并说明需求。

大神你好，不好意思。要求有点多，如果能费心写，不胜感激！如果觉得过于繁琐不想费神写，也是正常。毕竟有点麻烦，我自己也觉得不好意思。

想凭客户名筛选出该客户当天的所有出货明细，计算货物金额，运费金额以及查找欠款金额并计算出总欠款来生成出货单打印。

需求是能选择某个客户时自动筛选出单个客户的出货单打印，选择整列的时候生成这列每个客户的出货单批量打印。
感觉挺复杂的，不知道大神能不能给看看这个怎么用VBA代码实现呢？

出货单受众是海鲜市场的摊贩，所以出货单设计只需要偏向于手写习惯，把货物和金额这些信息直观的表达出来即可，
所以数量单位和金额都会在单元格上显示出来。

具体需求在附件有说明，之前论坛的大神设计过一个单纯汇总出货明细的代码，
但是有点bug，如果前面几行客户名是相同的数值，就会弹出下标越界的提示。
还有就是没有填入客户欠款以及计算总欠款的功能。

现在重新设置的出货单客户显示名字的位置改变了，并且流水账源数据多了一列，
原来的代码需要修改下或者重新写。

请问大神能不能帮忙给看看怎么实现新加入的需求？

清风竹-

百读谷歌 发表于 2023-4-7 23:06
大神你好，不好意思。要求有点多，如果能费心写，不胜感激！如果觉得过于繁琐不想费神写，也是正常。毕竟 ...

请测试一下。

百读谷歌

清风竹- 发表于 2023-4-8 16:49
请测试一下。

大神你好，非常感谢你费神编写代码，下载试用发现有一些小问题需要修复下。
有一些可能是我没表达清楚，现在我把需求再次说明以及弄了些PDF出货单给你再看看。
这样应该会比较直观的表达到我的需求。
烦请您再费神看看，再次感谢！

xyxcc177

百读谷歌 发表于 2023-4-7 23:06
大神你好，不好意思。要求有点多，如果能费心写，不胜感激！如果觉得过于繁琐不想费神写，也是正常。毕竟 ...

数据表不规范

清风竹-

百读谷歌 发表于 2023-4-8 21:45
大神你好，非常感谢你费神编写代码，下载试用发现有一些小问题需要修复下。
有一些可能是我没表达清楚， ...

请测试一下。

selen

实现单户和批量打印的功能：

Sub PrintData()
    Dim ws As Worksheet
    Dim printRange As Range
    Dim printCount As Integer
    Dim i As Integer
   
    ' 获取当前活动工作表
    Set ws = ActiveSheet
   
    ' 获取用户选择的打印范围
    Set printRange = Application.Selection
   
    ' 如果选择区域不为空
    If Not printRange Is Nothing Then
        ' 提示用户输入打印次数
        printCount = InputBox("请输入打印次数：", "打印次数", 1)
        
        ' 遍历每一行并进行打印
        For i = 1 To printCount
            For Each row In printRange.Rows
                ' TODO: 根据需要设置打印的内容和样式
                ' 可以使用 row.Cells(columnNumber).Value 获取单元格的值
                ' 在 L 列中记录打印次数
                row.Cells(12).Value = row.Cells(12).Value + 1
            Next row
        Next i
        
        ' 如果只选择了一行数据，则自动打印该行
        If printRange.Rows.Count = 1 Then
            printRange.Select
            ActiveSheet.PrintOut
        End If
    Else
        ' 如果选择区域为空，提示用户进行选择
        MsgBox "请选择要打印的数据区域。"
    End If
   
End Sub

百读谷歌

清风竹- 发表于 2023-4-9 12:04
请测试一下。

大神你好，测了一下，基本上的需求都已经实现没有错误，就是还要几个小小的另外需求想劳烦你再给看看方便给完善一下。具体在附件有说明。劳烦您再看看！

清风竹-

百读谷歌 发表于 2023-4-10 08:17
大神你好，测了一下，基本上的需求都已经实现没有错误，就是还要几个小小的另外需求想劳烦你再给看看方便 ...

请测试一下。