如何通过PDF打印机重印PDF文件？寻求通用及Delphi实现方案

核心思路 #

我之前也遇到过类似的PDF体积过大问题，结合Delphi开发经验和Windows系统特性，核心思路是利用系统原生打印机制：让系统调用用户自行选择安装的PDF打印机（比如Bullzip、PDF Architect等），静默将生成的大体积PDF发送到打印队列完成重印压缩，全程无需手动打开PDF界面，也不绑定特定PDF阅读器或打印工具。

Delphi 具体实现方案 #

1. 枚举系统中已安装的PDF打印机（供选择或自动匹配） #

首先需要获取系统里的PDF打印机列表，方便用户选择或者自动匹配。以下是用WinAPI枚举并筛选PDF打印机的代码：

uses
  Windows, SysUtils, Classes;

function GetPDFPrinters(out PrinterList: TStringList): Boolean;
var
  pPrinters: PPrinterInfo2;
  cbNeeded, cReturned: DWORD;
  i: Integer;
begin
  Result := False;
  PrinterList.Clear;
  // 先获取枚举打印机所需的内存大小
  if not EnumPrinters(PRINTER_ENUM_LOCAL or PRINTER_ENUM_CONNECTIONS, nil, 2, nil, 0, cbNeeded, cReturned) then
  begin
    if GetLastError = ERROR_INSUFFICIENT_BUFFER then
    begin
      GetMem(pPrinters, cbNeeded);
      try
        if EnumPrinters(PRINTER_ENUM_LOCAL or PRINTER_ENUM_CONNECTIONS, nil, 2, pPrinters, cbNeeded, cbNeeded, cReturned) then
        begin
          for i := 0 to cReturned - 1 do
          begin
            // 通过名称关键词筛选PDF打印机，可根据实际情况调整判断逻辑
            if Pos('PDF', UpperCase(pPrinters[i].pPrinterName)) > 0 then
              PrinterList.Add(pPrinters[i].pPrinterName);
          end;
          Result := PrinterList.Count > 0;
        end;
      finally
        FreeMem(pPrinters);
      end;
    end;
  end;
end;

2. 静默打印PDF到指定PDF打印机 #

利用Windows ShellExecuteEx API，调用系统关联的PDF阅读器完成静默打印，无需显示窗口：

function PrintPDFToPrinter(const PDFPath, PrinterName: string): Boolean;
var
  ShellInfo: SHELLEXECUTEINFO;
begin
  ZeroMemory(@ShellInfo, SizeOf(SHELLEXECUTEINFO));
  ShellInfo.cbSize := SizeOf(SHELLEXECUTEINFO);
  ShellInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
  ShellInfo.lpVerb := 'printto'; // 指定"打印到特定打印机"的动作
  ShellInfo.lpFile := PChar(PDFPath);
  // 参数格式："打印机名称" "驱动名称" "端口名称"，后两项留空系统会自动识别
  ShellInfo.lpParameters := PChar(Format('"%s" "" ""', [PrinterName]));
  ShellInfo.nShow := SW_HIDE; // 静默模式，不显示阅读器窗口

  Result := ShellExecuteEx(@ShellInfo);
  if Result then
  begin
    // 等待打印进程完成，避免后续操作提前执行
    WaitForSingleObject(ShellInfo.hProcess, INFINITE);
    CloseHandle(ShellInfo.hProcess);
  end;
end;

3. 集成到你的现有流程 #

在你用ExportToPDF(ppReport, TmpFileName)生成大体积PDF后，只需添加以下逻辑完成重印：

var
  PDFPrinters: TStringList;
  SelectedPrinter: string;
begin
  PDFPrinters := TStringList.Create;
  try
    if GetPDFPrinters(PDFPrinters) then
    begin
      // 这里可以让用户从PDFPrinters列表中选择，或者直接用第一个打印机
      SelectedPrinter := PDFPrinters[0];
      if PrintPDFToPrinter(TmpFileName, SelectedPrinter) then
        ShowMessage('PDF重印压缩完成！')
      else
        ShowMessage('打印失败，请检查PDF打印机是否正常');
    end
    else
      ShowMessage('未找到已安装的PDF打印机，请先安装一款PDF打印机');
  finally
    PDFPrinters.Free;
  end;
end;

通用方案（非Delphi适配） #

如果需要跨语言或通用Windows环境实现，核心思路和Delphi一致：

• 命令行方式：使用Windows的start命令结合printto动作，示例：

  start /min "" "C:\path\to\your\large.pdf" /printto "Bullzip PDF Printer" "" ""
  

• Shell调用方式：任何支持调用Windows Shell API的语言（比如C#、VB.NET），都可以实现类似Delphi的逻辑，传入printto动词和打印机参数完成静默打印。

注意事项 #

1. 依赖条件：确保用户系统已安装至少一款PDF打印机，且有能关联PDF的程序（Windows默认的Edge浏览器即可满足，无需额外安装专业阅读器）。
2. 静默性：大部分PDF阅读器在接收到printto命令时会静默处理，但少数可能弹出设置窗口，可让用户在阅读器中开启"静默打印"选项解决。
3. 兼容性：该方案不绑定任何特定PDF工具，用户可自由选择Bullzip、PDF Architect或其他PDF打印机，完全符合你的需求。

内容的提问来源于stack exchange，提问作者TomR