主页 / coding / 问题 / 79309398
Accepted
Ramadan Moussa
Asked: 2024-12-26 19:47:20 +0800 CST

在处理 Excel 工作表时打印 2 个外部 PDF 文件

  • 772

在处理 Excel 工作表时，我需要在同一个文件夹中打印 2 个不同的外部 PDF 文件供我的客户签名。

以下是文件路径“D:\Templates to Print\Acknowledgment.pdf”和“D:\Templates to Print\Works Permit.pdf”

我在网上搜索时找到了这个代码但不幸的是它不起作用

sub print_file()

Print_and_Close_PDF "D:\Templates to Print\Acknowledgment.pdf"
End sub`
excel

3 个回答

  1. 已验证的作品在这里：

    Option Explicit

    Sub PrintPDF() Dim pdfPath 作为字符串 Dim pdfPath2 作为字符串 Dim acroPath 作为字符串 Dim acroPath2 作为字符串

    ' 设置第一个 PDF 文件的路径 pdfPath = "D:\Templates to Print\Acknowledgment.pdf"

    ' 设置 Adob​​e Acrobat Reader 的路径（如果路径不同，请进行调整）acroPath = “C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe”

    ' 打印 PDF 文件 Shell """" & acroPath & """ /t """ & pdfPath & """", vbNormalFocus

    ' 设置第二个 PDF 文件的路径 pdfPath2 = "D:\Templates to Print\Works Permit.pdf"

    ' 打印 PDF 文件 Shell """" & acroPath & """ /t """ & pdfPath2 & """", vbNormalFocus

    子目录结束

    • 0

  2. 跨平台最佳、最简单的 PDF 打印输出应用程序（虚拟为图像或系统物理打印机）是 GhostScript。

    通常会不必要地包装在编程语言或复杂的脚本中！

    Windows 中所需的只是一个标称输出和一个要处理的文件列表。（如果使用 cmd 文件，您可能需要双精度%值，它们将在命令行上转换为两个值）

    "path to \GSwin##c.exe" -sDEVICE=mswinpr2 -o "%printer%\\printServer\printerNameWith Spaces" @"list.txt"

    因此，在 Excel 中，您可以将文件列表导出到文本文件并运行该文件。

    列表.txt

    "D:\Templates to Print\Acknowledgment.pdf"
"D:\Templates to Print\Works Permit.pdf"

    作为示例，我们模拟向打印机发送 2 个单页 PDF，并且可以看到有 2 页流经打印队列。

    在此处输入图片描述

    • 0
  3. Best Answer

    作为替代方案；

    Sub Test()
    Dim file1 As String, file2 As String
    
    file1 = "D:\Templates to Print\Acknowledgment.pdf"
    file2 = "D:\Templates to Print\Works Permit.pdf"
    
    CreateObject("Shell.Application").Namespace(0).ParseName(file1).InvokeVerb ("Print")
    CreateObject("Shell.Application").Namespace(0).ParseName(file2).InvokeVerb ("Print")
End Sub
    • 0

相关问题