VBA打印 外部PDF文件

liuandy2008

想通过VBA打印外部PDF文件，如何实现呢？

huang1314wei

Declare 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
Sub prin()
Application.ScreenUpdating = False
ShellExecute Application.hwnd, "print", "D:\test.pdf", "", "", SW_HIDE '自己改打印的文件路径
Application.ScreenUpdating = True
End Sub

IVYQQQQQ

huang1314wei 发表于 2015-11-3 14:56
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal  ...

学习了，留个脚印！

aman1516

学习了，标识一下

硅谷少年

huang1314wei 发表于 2015-11-3 14:56
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal  ...

测试了这段代码，没有任何反应，没有看到打印的文件。。。

Loe2020

huang1314wei 发表于 2015-11-3 14:56
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal  ...

请问这里可以选择打印机打印吗？  谢谢

已解决
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
谢谢啦

hongshan2019

huang1314wei 发表于 2015-11-3 14:56
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal  ...

整理好，运行，没有任何反应。请问大神，是需要指定打印机么？

qiricer

还有看这个帖子的吗？
我想问问 ，在上面代码里面，加个 循环。让它连续打印后，出现了 出来的顺序和表格里面的顺序不一样。怎么回事，如何处理？

jlpersist

qiricer 发表于 2021-4-8 19:03
还有看这个帖子的吗？
我想问问 ，在上面代码里面，加个 循环。让它连续打印后，出现了 出来的顺序和表格 ...

同样的需求，请问您这边解决了吗

jlpersist

qiricer 发表于 2021-4-8 19:03
还有看这个帖子的吗？
我想问问 ，在上面代码里面，加个 循环。让它连续打印后，出现了 出来的顺序和表格 ...

我这边后来解决了，在打印后面加个睡眠函数就行，让执行完一段代码后等一段时间，再执行下一次，这样顺序就会一样了