小白求助诸位大佬帮忙写下，如何通过超链接目录直接打印标注打印的部分图片文档。。。

恶魔在人间

小白求助诸位大佬帮忙写下，如何通过超链接目录直接打印标注打印的部分图片文档。。。

fanyoulin

要调用系统函数，我是从网上抄来的，但我不想调试，需要打印机而且很废纸，我没那个条件：

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp _
As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long


ShellExecute Application.hwnd, "print", 全路径完整文件名, "", "", SW_HIDE

恶魔在人间

fanyoulin 发表于 2023-6-20 12:04
要调用系统函数，我是从网上抄来的，但我不想调试，需要打印机而且很废纸，我没那个条件：

Declare PtrS ...

能详细些吗？完全不明白

fanyoulin

恶魔在人间 发表于 2023-6-20 13:09
能详细些吗？完全不明白

你把它照抄就行了，这段代码是可以运行的，我测试过。前面的系统函数的定义要放在公共变量区，后面的一行放到自己的模块中，唯一要做的就是把带路径的完整文件名写在最后一行代码中即可，其他参数都不需要修改，因为都是API参数，搞不懂的。
这段代码对pdf的打印比较好用，能直接打印不会弹出任何需要确认的提示，但打印图片会弹出打印设置对话框，这个对话框是图片查看器默认的设置项，无法屏蔽，所以大批量打印图片确实能用但不算太顺畅，没有打印pdf好用。至于能不能打印excel、word、ppt，我估计是可以的，有没有对话框弹出我就不知道了，没试过。
其他关于如何引用api函数这类问题，你只能网上去看资料，api是操作系统函数，很难理解引用并不简单，确实需要引用的只能去抄别人的作业，我也是找了很久才找到这个代码的，总体上能批量打印exce的l外部文件，vba是搞不定这类问题的；

恶魔在人间

fanyoulin 发表于 2023-6-20 15:06
你把它照抄就行了，这段代码是可以运行的，我测试过。前面的系统函数的定义要放在公共变量区，后面的一行 ...

纯小白，真心不会用，能麻烦帮忙放附件里吗？感谢

fanyoulin

恶魔在人间 发表于 2023-6-20 16:10
纯小白，真心不会用，能麻烦帮忙放附件里吗？感谢

我只能给你贴两张截图，你自己悟吧；
插入了按钮3，定义了abc过程，代码只有1行，就是打印文件，文件是我本机上的，所以路径是固定的；
另一张截图是演示打印图片的时候出现的打印选项对话框，执行代码它就会弹出来，因为图片查看器默认的，选完就会开始打印；
关键点是给你演示如何把系统函数定义在公共变量区，就是放在过程外面就行了，任何模块都可以，只要是在本模块的顶部即可，很简单的；


你只需要在这个示例的基础上套个循环，把你需要的文件逐个打印即可，我想这个你应该会吧？