|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
功能 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)
结束
|
评分
-
查看全部评分
|