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

taller

wf888888

taller 发表于 2023-6-9 10:15
这说明你的32位的Office，不需要管这个红色代码，直接执行后面的Sub过程就可以了

Public 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 PrintPDFUsingAPI()
    Dim pdfpath As String, result
    pdfpath = "C:\Users\Administrator\Desktop\Print.pdf"
    result = ShellExecute(0, "print", pdfpath, 0&, 0&, 0)
    If result > 32 Then
        MsgBox "打印命令已发送至默认打印机"
    Else
        MsgBox "无法打印命令"
    End If
End Sub
我将前面的选择取消，直接输出为32位的，但程序输出后，显示为无法打印，不知道是什么原因，将public修改为private 或取消，都显示无法打印

zpy2

wf888888 发表于 2023-6-9 11:10
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long,  ...

会不会注册表损坏了，没法关联了？

wf888888

zpy2 发表于 2023-6-9 11:17
会不会注册表损坏了，没法关联了？

我已解决，原因是我的电脑没有adobereader，通过迅捷PDF默认软件，则程序不能通过，通过wps则可以运行