vba不能打印PDF文件，我想知道是什么原因

wf888888

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub TestfPrintPDF()
    ShellExecute Application.hwnd, "print", "D:\用户目录\我的文档\WeChat Files\wxid_k8c3xlthtf7l22\FileStorage\File\2023-06\准考证.pdf", "", "", SW_HIDE
End Sub
哪位大侠能告知文件不能打印的原因，
我的操作系统是Win7 64位

剑指E

SW_HIDE改成 0 试试

taller

wf888888

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Longptr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Longptr
这一句通不过，显示为红色，原因”PtrSafe “，取消了则不显示为红色

wf888888

剑指E 发表于 2023-6-8 23:51
SW_HIDE改成 0 试试

更改了一下，还是不行。

wf888888

我的操作系统是WIN7 64位

wj2368

PtrSafe 是64位系统的，32位系统的去掉就可以了

wf888888

taller 发表于 2023-6-9 07:52

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Longptr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Longptr
这一句通不过，显示为红色，原因”PtrSafe “，取消了则不显示为红色，是否需要添加什么内容？

wf888888

增加PtrSafe就通不过

taller

wf888888 发表于 2023-6-9 09:02
增加PtrSafe就通不过

这说明你的32位的Office，不需要管这个红色代码，直接执行后面的Sub过程就可以了