PDF插件 for VBA 合并,提取,旋转等

opiona

马小呆 发表于 2024-3-11 09:08
谢谢回复，你上面的代码能不能批量把多个PDF，另存为图片呢？

再个就是用户定义类型未定义

不复寻觅桃花源

opiona 发表于 2024-2-20 17:54
纯VBA代码: 打印PDF文件  可以指定页码  需要安装Adobe

请问这个哪行代码是打印机选项 要怎么改才能指定打印机打印？

opiona

不复寻觅桃花源 发表于 2024-3-15 17:22
请问这个哪行代码是打印机选项 要怎么改才能指定打印机打印？

目前支持

opiona

    ''' <param name="StrPrintName">打印机名称 默认="" 默认打印机</param>

不复寻觅桃花源

opiona 发表于 2024-3-15 23:41
''' 打印机名称 默认="" 默认打印机

不懂插入哪一行，

opiona

不复寻觅桃花源 发表于 2024-3-19 17:51
不懂插入哪一行，

改一个参数而已

不复寻觅桃花源

opiona 发表于 2024-3-19 17:54
改一个参数而已

用的代码是这个，不一样
'Rem *******  北极狐工作室出品  ******
'Rem *******  QQ：14885553       *****
'Rem **********************************
Option Explicit  '//强制声明变量

Sub TEST()
    Dim PathPDF  As String
    PathPDF = ThisWorkbook.Path & "\630.PDF"
    Call PrintPDFFile(PathPDF:=PathPDF, FirstPage:=1, LastPage:=5)
End Sub

Sub PrintPDFFile(ByVal PathPDF As String, Optional ByVal FirstPage As Long = 1, Optional ByVal LastPage As Long = 0)
    Rem PathPDF   需要打印的PDF文件的全路径
    Rem FrstPage   要打印的第一页 默认=1
    Rem LastPage  要打印的最后一页 默认=0 全部
    Rem 必要时需引用：Adobe Acrobat 10.0 Type Library  （版本可能不一样）
   
    Dim AcroExchApp As Acrobat.CAcroApp
    Dim AcroExchAVDoc As Acrobat.CAcroAVDoc
    Dim AcroExchPDDoc As Acrobat.CAcroPDDoc
    Dim NumPage As Long
    Set AcroExchApp = CreateObject("AcroExch.App")
    Set AcroExchAVDoc = CreateObject("AcroExch.AVDoc")
    Rem 打开PDF Open the [PathPDF] pdf file
    AcroExchAVDoc.Open PathPDF, "1"
    Rem 转为另一个对象 主要是获取页码 Get the PDDoc associated with the open AVDoc
    Set AcroExchPDDoc = AcroExchAVDoc.GetPDDoc
    Rem 获取页码, 第一页=0  Get the number of pages for this pdf
    NumPage = AcroExchPDDoc.GetNumPages - 1
    Rem 内部的页码是从0开始的  就是第一页的序号=0
    If FirstPage > 0 Then FirstPage = FirstPage - 1
    If LastPage > 0 Then
        LastPage = LastPage - 1
    Else
        LastPage = NumPage
    End If
    Rem 防止指定的最后一页 超过实际页数
    If LastPage > NumPage Then LastPage = NumPage
    Rem 开始打印
    Rem Call AcroExchAVDoc.PrintPages(FirstPage, LastPage, 2, 1, 1)  '//打印指定范围的页面，显示打印对话框。PrintPages始终使用 WIN中的默认打印机设置?INI?
    Call AcroExchAVDoc.PrintPagesSilent(FirstPage, LastPage, 2, 1, 1)   '//打印指定范围的页面而不显示任何对话框
    Rem 关闭Adobe对象
    AcroExchApp.Exit
    AcroExchAVDoc.Close (False)
    AcroExchPDDoc.Close
End Sub

opiona

指定打印机可以参考: https://www.oomake.com/question/14977981
因为使用情况较少, 没仔细研究

我一般都是先指定默认打印机 然后再用楼上代码打印

三流高手

学习学习，谢谢谢谢。

三流高手

刚下载了安装了，直接提示过了试用期。能不能延长试用期啊？合适的话都可以续费的。