【EXCEL】VBA通过Adobe Reader打印PDF文件（之一）

xiamen168

【EXCEL】VBA通过Adobe Reader打印PDF文件（之一）

【功能简介】                                
Adobe Reader的一些命令的帮助信息较少，且打印后Adobe Reader没有被关闭，                                
当打印较多文件时，还可能有异常出错发生。                                
为了解决这些问题，工具软件网提供如下，工具及其源代码。欢迎大家使用。                                

【使用方法】                                
1.点击左边按钮                                
  本方法的特点：等待打印处理结束之后再终止AdobeReader应用                                

【使用情境】                                
1.学习VBA打印PDF的方法   
http://www.toolssoft.com/forum.php?mod=viewthread&tid=119&extra=page%3D1

方法二，三
http://www.toolssoft.com/forum.php?mod=forumdisplay&fid=2&page=1




Sub 方法1()
    PdfPrint1 "A.PDF"
End SubSub PdfPrint1(File)
    Dim wShell As Object
    Dim Path As String
    Dim PID As Long
   
    Set wShell = CreateObject("WScript.Shell")
    Path = wShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\acrord32.exe\")
    Path = Replace(Path, """", "")
    Path = wShell.ExpandEnvironmentStrings(Path)
    PID = Shell("""" & Path & """ /n /p /h """ & File & """")
    Do While Not wShell.AppActivate(PID)
      Application.Wait Now + TimeSerial(0, 0, 1)
    Loop
    Do While wShell.AppActivate(PID)
      wShell.SendKeys "^q"
      Application.Wait Now + TimeSerial(0, 0, 1)
    Loop
End Sub

togetheru

很好~~~~~留名~~~~~~~~~~学习！

暮牧

留个脚印~~~~~~~~~~~~~~~~~~~~~