如何根据pdf文件列表，批量打印(问题已经解决）

zzf_

如下图所示，pdf文件列表（含全路径名）在C列的C7单元格及以下
如何通过多选（Ctrl、Shift键配合），批量打印pdf文件
找遍论坛，只有ShellExecute、SendKeys方法的介绍，
狼版的资料：http://club.excelhome.net/viewth ... ight=pdf&page=3
30楼的
没有应用范例
请各位大师帮忙

[ 本帖最后由 zzf_ 于 2010-5-11 03:51 编辑 ]

zzf_

请各位大师帮忙
解决这一论坛难题

zzf_

[ 本帖最后由 zzf_ 于 2010-5-11 00:20 编辑 ]

zzf_

顶上去，让大师们都看到，帮忙解决一下！
感谢！

zzf_

上传点函数参考资料给大师们参考一下！

this allows you to print PDF forms using automation for the free Acrobat Reader. There are other actions that the Reader supports in automation as well, but i can't recall if they are limited to save and print.
I think you can find them here: http://partners.adobe.com/public ... ac/IACReference.pdf



Public Function PrintPDFForms(prtFileName As String, prtDrive As String)
Dim AcrApp As Object
Dim acrDoc As Object
Dim acrPDDoc As Object
Dim ret As Long
Dim lngPage As Long

    Set AcrApp = CreateObject("AcroExch.App")
' uncomment if you want to see the Acrobat window
    'ret = AcrApp.Show()         
   
    Set acrDoc = CreateObject("AcroExch.AVDoc")
   
    acrDoc.Open "YourFileName",  "PDF Print"
    Set acrPDDoc = acrDoc.GetPDDoc
    lngPages = acrPDDoc.GetNumPages
    ret = acrDoc.PrintPages(0, lngPages - 1, 1, True, True)
      
   
    Set acrDoc = Nothing
    Set acrPDDoc = Nothing
    AcrApp.CloseAllDocs
    AcrApp.Exit
    Set AcrApp = Nothing

End Function
这段代码好像有用，但不知道怎么用

[ 本帖最后由 zzf_ 于 2010-5-2 11:31 编辑 ]

zldccmx

1. Sub zldccmx()
   
2. '我这测试环境是　Foxit Reader.exe
   
3.     For i = 7 To [C65536].End(3).Row
   
4.         文件名 = Cells(i, "C").Text
   
5.         jf = InStrRev(文件名,"")
   
6.         P_A = Left(文件名, jf - 1)
   
7.         文件名 = Mid(文件名,jf + 1)
   
8.         ChDir P_A
   
9.         ChDrive Left(Cells(i, "C"), 1)
   
10.         Shell "C:\PROGRA~1\FOXITR~1\FOXITR~1.EXE /p " & 文件名
    
11.     Next
    
12. End Sub
    

复制代码

[ 本帖最后由 zldccmx 于 2010-5-2 13:22 编辑 ]

zldccmx

其实，只要你的PDF文件右键菜单支持打印就有办法

zldccmx

说到底还是直接调用WINDOWS的快捷打印功能！

zldccmx

请参考录像　

zzf_

Sub zldccmx()
Dim Rng As Range
For Each Rng In Selection
  If Rng.Column = 3 And Rng.Row >= 7 Then
        文件名 = Rng.Value
        jf = InStrRev(文件名, "\")
        P_A = Left(文件名, jf - 1)
        文件名 = Mid(文件名, jf + 1)
        ChDir P_A
        ChDrive Left(Rng.Value, 1)
      Shell "C:\Program Files\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe /p /h " & 文件名
    End If
    Next
End Sub
谢谢大师指导！
Acrobat 7.0下调试通过