大批量缩微打印 PDF 的省时秘诀：使用 Excel 搞定！

2023-09-13 23:09:52

引言
批量打印 PDF 文档时遇到难题？别担心，Excel 可以成为你的救星！通过利用它的强大功能，你可以轻松地缩微打印 PDF，节省时间和精力。本文将引导你一步步实现这一目标，让你轻松解决批量缩微打印的烦恼。

第 1 步：准备 PDF 文件
首先，将所有要缩微打印的 PDF 文件合并到一个文件夹中。确保文件名称简单明了，以便于后续操作。

第 2 步：创建 Excel 工作簿
打开 Excel，创建一个新的工作簿。在第一行输入列
第 3 步：输入文件名和缩微比例
在第二行及以下行中，依次输入每个 PDF 文件的名称和缩微比例。缩微比例以小数表示，如 0.5 表示将 PDF 缩小到原始尺寸的一半。

第 4 步：创建宏
在“开发”选项卡中，单击“宏”。在弹出的窗口中，输入宏名称（例如“PrintMiniPDFs”）并单击“创建”。

第 5 步：编写宏代码
在宏编辑器中，粘贴以下代码：

Sub PrintMiniPDFs()

    Dim wb As Workbook
    Dim ws As Worksheet
    Dim i As Long, lastRow As Long
    Dim fileName As String
    Dim scaleFactor As Double
    Dim objShell As Object

    ' 获取 Excel 工作簿和工作表
    Set wb = ActiveWorkbook
    Set ws = wb.Worksheets(1)

    ' 确定工作表的最后一行
    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row

    ' 遍历每一行，打印 PDF
    For i = 2 To lastRow
        ' 获取文件名和缩微比例
        fileName = ws.Cells(i, 1).Value
        scaleFactor = ws.Cells(i, 2).Value

        ' 设置命令行参数
        strCmd = "AcroRd32.exe /p " & Chr(34) & fileName & Chr(34) & " /shrink " & scaleFactor

        ' 执行命令行以打印 PDF
        Set objShell = CreateObject("WScript.Shell")
        objShell.Run strCmd, 0
    Next i

End Sub