有人询问打印pdf问题，奉上源码利用VBS调用Adobe Acrobat DC打....

cdthinker

功能 PrintPdf(PdfPrint)//pdf全路径,用于打印pdf文件
    变量 strPdf, Sc
    strPdf ="Dim AcroApp,AcroAVDoc,AcroPDDoc,FileName,num \r\n"
    strPdf = strPdf & "Set AcroApp = CreateObject(\"AcroExch.App\") \r\n"
    strPdf = strPdf & "Set AcroAVDoc = CreateObject(\"AcroExch.AVDoc\") \r\n"
    strPdf = strPdf & "FileName=\""&PdfPrint&"\" \r\n"
    strPdf = strPdf & "AcroAVDoc.Open FileName, \"PrintPdf\" \r\n"
    strPdf = strPdf & "Set AcroPDDoc = AcroAVDoc.GetPDDoc \r\n"
    strPdf = strPdf & "num = AcroPDDoc.GetNumPages - 1 \r\n"
    strPdf = strPdf & "AcroAVDoc.PrintPages 0, num, True, False, False \r\n"
    strPdf = strPdf & "AcroAVDoc.Close False \r\n"
    strPdf = strPdf & "AcroApp.Exit \r\n"
    strPdf = strPdf & "Set AcroPDDoc = Nothing \r\n"
    strPdf = strPdf & "Set AcroAVDoc = Nothing \r\n"
    strPdf = strPdf & "Set AcroApp = Nothing \r\n"
    Sc = 插件("ScriptControl")
    Sc.language = "VBScript"
    Sc.addcode(strPdf)
结束

cdthinker

//直接调用com接口对象方法
功能 PrintPdf(PdfPrint)//pdf全路径,用于打印pdf文件
    变量 AcroApp,AcroAVDoc,AcroPDDoc,FileName,Num
    AcroApp = 插件("AcroExch.App")
    AcroAVDoc = 插件("AcroExch.AVDoc")
    FileName="\""&PdfPrint&"\""
    AcroAVDoc.Open(FileName, "PrintPdf")
    AcroPDDoc = AcroAVDoc.GetPDDoc()
    Num = AcroPDDoc.GetNumPages - 1
    AcroAVDoc.PrintPages(0, Num, true, false, false)
    AcroAVDoc.Close()
    AcroApp.Exit
    AcroPDDoc = null
    AcroAVDoc = null
    AcroApp = null
    返回 Num
结束

sxw005

谢谢大神分享