求助EXCEL套打功能实现方法

byanly

拖各位后腿了真的很抱歉！无奈本人确实不会只能来求助了，还请高人伸出援助之手，谢谢！


此表数据来源：通过无线扫描枪扫描二维码，自动填入D列，可能存在多行重复数据，所以希望相同内容打印时能自动合并为一行，数量求和。 为了溯源，希望点打印的时候能生成本地PDF文件，以及同步打印出纸质文件。

系统环境windows7-win10   OFFICE2010-2016   再次感谢！


非常感谢limonet\ yynrzwh的热心帮助，结合两位的方式已经达成了我要的效果。

limonet

SQL与ARR\GETROWS

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$, Arr As Variant
    Set Cn = CreateObject("adodb.connection")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=NO';data source=" & ThisWorkbook.FullName
    StrSQL = "select f1,sum(f2),first(f3) from [Sheet2 (2)$D4:F] where not f1 is null group by f1"
    Arr = Cn.Execute(StrSQL).getrows
    Range("D4:f29").ClearContents
    Range("D4").Resize(UBound(Arr, 2) + 1, 3) = WorksheetFunction.Transpose(Arr)
'    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
'        IgnorePrintAreas:=False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\装箱清单.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

byanly

limonet 发表于 2023-7-24 12:07
Sub limonet()
    Dim Cn As Object, StrSQL$, Arr As Variant
    Set Cn = CreateObject("adodb.conne ...

非常感谢您的帮助，代码功能很好用！
因为我的原因描述忽略了二个问题，所以当前并没有达成目标。

实际工作时，扫描仅仅录入“产品编号；安装序号”列的数据，并不会产生“数量“”单位”列的数据。
“数量“”单位”列仅仅是因为打印后的识别需要而设置，有没可能只要在“产品编号；安装序号”单元格录入任意数据，就自动带出 数量：1，单位：件。或者我表格固定格式所有的数量都是1，单位件。  另一个问题就是生成PDF因为文件名相同，所以会覆盖上一文件，能否以系统日期 时间命名呢，这样才能有效存档溯源，便于代码的完整运行， 还请麻烦帮忙完善一下，感激不尽！

byanly

limonet 发表于 2023-7-24 12:07
Sub limonet()
    Dim Cn As Object, StrSQL$, Arr As Variant
    Set Cn = CreateObject("adodb.conne ...

非常感谢您的帮助，提供的代码达到了我描述的功能。
因为个人描述的不够清晰，所以仍然存在一些问题，还恳请帮忙，再次感谢！
1、表格仅有D列录入数据。所以E列，F列的数据仅仅是打印出纸质文件后便于识别而设。有没有可能默认D列只要录入数据，就带出E列数量为1；F列单位为件？ 又或者我的模板默认设置，固定所有E列数量为1；F列单位为件，不知道是否影响代码的运行。
2、打印出的PDF文件以文件名命名，这就导致下一次打印会覆盖之前的文件，而达不到溯源的作用，能否用文件名+日期时间的方式命名；
3、打印后的单元格边框线条没有了，这个能否固定。
再次感谢！

limonet

E列数量为1，F列单位为件，这个不复杂，方式也很多；但是，你在求助帖里的"数量求和"，是怎么回事。

byanly

limonet 发表于 2023-7-24 15:26
E列数量为1，F列单位为件，这个不复杂，方式也很多；但是，你在求助帖里的"数量求和"，是怎么回事。

数量求和就是现在已经实现了的功能，录入的时候可能出现相同条码自动填入D列，如D5、D9数据相同。因此就是1+1=2。打印时能自动合并为一行。  你可以理解成我的整个表格中仅有D列有数据，但是打印的时候却要看到“数量“”单位”。

limonet

2、Filename:= ThisWorkbook.Path & "\装箱清单" & int(timer) & ".pdf"
3、我没有改你的表格格式，你自己美化。

byanly

limonet 发表于 2023-7-24 16:35
2、Filename:= ThisWorkbook.Path & "\装箱清单" & int(timer) & ".pdf"
3、我没有改你的表格格式，你自己 ...

再次感谢您的帮助，谢谢！  单元格格式是我自己的问题，已经解决；测试保存时好像随机命名了，因此我改成了以下方式：
ThisWorkbook.Path & "\装箱清单" & Format(Now, "yyyymmddhhmmss") & ".pdf"

yynrzwh

装箱清单.rar (439.19 KB, 下载次数: 8)

2023-7-24 18:01 上传

点击文件名下载附件