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

清风竹-

百读谷歌 发表于 2023-4-17 18:28
对比了两次的代码，打印那一块代码好像有个引号的位置不同，把引号的位置改到上面好像就没这个弹窗了，不 ...

   MsgBox "打印"  这句是写代码时，验证代码用的。代替代印语句。下句是打印语句。
            ActiveWindow.SelectedSheets.PrintOut ''''''打印语句

百读谷歌

百读谷歌 发表于 2023-4-17 18:28
对比了两次的代码，打印那一块代码好像有个引号的位置不同，把引号的位置改到上面好像就没这个弹窗了，不 ...

这是原来的代码
    '  MsgBox "打印"
           ActiveWindow.SelectedSheets.PrintOut  ''''''打印语句 ActiveWindow

这次会每次弹窗的代码
     MsgBox "打印"
         '   ActiveWindow.SelectedSheets.PrintOut  ''''''打印语句 ActiveWindow

我讲错了，是那个逗号的位置不同，我把逗号移到上面就没有这个每次打印都弹窗的问题，不知道这个方法是不是正确的

清风竹-

百读谷歌 发表于 2023-4-18 09:04
这是原来的代码
    '  MsgBox "打印"
           ActiveWindow.SelectedSheets.PrintOut  ''''''打印 ...

你讲的对。

YYKK001

清风竹- 发表于 2023-4-18 14:32
你讲的对。

你好 ，清风竹-老师，我的表格可以查询 数据。想做一个可以批量打印、查看下一页的 小功能，可否劳烦 看下，非常感谢

清风竹-

YYKK001 发表于 2023-4-20 19:04
你好 ，清风竹-老师，我的表格可以查询 数据。想做一个可以批量打印、查看下一页的 小功能，可否劳烦 看 ...

请测试一下。

YYKK001

清风竹- 发表于 2023-4-21 09:27
有密码。。

Enter   不用输密码  按回车键直接可打开

百读谷歌

清风竹- 发表于 2023-4-18 14:32
你讲的对。

清风竹老师你好，想劳烦你再加两行代码实现这两个需求，又来麻烦你抱歉了。
是当初没想全，漏了两个需求，现在请你再修改下，麻烦你了。附件有详细说明。

就是想检测V列到单元格存在“11”的时候，这一行的内容不参与出货单汇总当中，
如果同一个客户有多行明细，仅仅是有“11”的这些行不参与出货单汇总，没“11”的行的明细要生成出货单。

第二个就是“上期欠款”，原本是获取“欠款名单”G列的数值就可以了，
但现在因为加了这个“11”不参与汇总的功能，
所以“上期欠款”要改成是获取G列数值后再加上这个客户有“11”的全部行中在Q列和T列的数值之和。

清风竹-

百读谷歌 发表于 2023-4-23 07:25
清风竹老师你好，想劳烦你再加两行代码实现这两个需求，又来麻烦你抱歉了。
是当初没想全，漏了两个需 ...

请测试一下。

百读谷歌

清风竹- 发表于 2023-4-23 11:17
请测试一下。

清风竹老师，非常感谢。最新的修改版目前没遇到什么问题，但是有个地方麻烦你给再修改一下。

如果某个客户他的出货明细全都有“11”的时候，也就是他没有出货明细需要再汇总成出货单的时候，
这个客户就不要出现在打印窗口的选择框上出现，因为这个客户已经没有打印的数据，不需要再打印。


另外能不能请大神再加一个打印时自动生成出货单号的的功能，
单号显示在B5单元格，格式为"日期-hhmmss00"（打印时的时间），比如 0401-15253325
意思是日期0401，在15:25:33时间打印的，后面25是毫秒。因为我不确定以秒为单位生成单号会不会有单号重复的问题，所以想用到毫秒。

有劳了，清风竹老师。

清风竹-

百读谷歌 发表于 2023-4-24 08:04
清风竹老师，非常感谢。最新的修改版目前没遇到什么问题，但是有个地方麻烦你给再修改一下。

如果某个 ...

编号后两位不是毫秒，是同一秒内的第次数。这样更方便查看，清晰，简洁。