如何在Delphi中通过QuickReport静默打印至Adobe Acrobat PDF打印机

一、预先配置Adobe Acrobat打印机 #

• 打开控制面板，找到Adobe Acrobat PDF打印机，右键选择「打印机首选项」
• 在「Adobe PDF设置」标签页中，勾选完成后不打开PDF文件（不同版本表述可能略有差异，比如“不查看Adobe PDF”）
• 确认设置后关闭首选项窗口

二、Delphi代码实现静默打印与指定文件名 #

1. 定位Adobe PDF打印机 #

先确认目标打印机存在并选中，避免打印到错误设备：

const
  cAdobePDFPrinterName = 'Adobe Acrobat PDF';
var
  PrinterIdx: Integer;
begin
  PrinterIdx := Printer.Printers.IndexOf(cAdobePDFPrinterName);
  if PrinterIdx = -1 then
    raise Exception.Create('未找到Adobe Acrobat PDF打印机');
  Printer.PrinterIndex := PrinterIdx;
end;

2. 静默打印并指定输出路径 #

通过TPrinter的PrintToFile属性跳过文件名弹窗，配合QuickReport完成打印：

procedure SilentPrintToPDF(const AReport: TQuickRep; const AOutputPath: string);
var
  PrinterIdx: Integer;
  OldPrintToFile: Boolean;
  OldFileName: string;
begin
  // 保存原有打印机设置，避免影响后续打印
  OldPrintToFile := Printer.PrintToFile;
  OldFileName := Printer.FileName;

  try
    // 定位Adobe PDF打印机
    PrinterIdx := Printer.Printers.IndexOf(cAdobePDFPrinterName);
    if PrinterIdx = -1 then
      raise Exception.Create('Adobe Acrobat PDF打印机未安装');
    Printer.PrinterIndex := PrinterIdx;

    // 开启打印到文件模式并指定输出路径
    Printer.PrintToFile := True;
    Printer.FileName := AOutputPath;

    // 执行QuickReport静默打印
    AReport.Print;
  finally
    // 恢复原有打印机设置
    Printer.PrintToFile := OldPrintToFile;
    Printer.FileName := OldFileName;
  end;
end;

3. 可选：注册表强制禁用自动打开PDF #

如果打印机首选项设置不生效，可通过修改注册表永久关闭打印后自动打开行为：

procedure DisableAdobePDFAutoOpen;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('Software\Adobe\Adobe PDF\Printer', True) then
    begin
      Reg.WriteInteger('bViewAdobePDF', 0); // 0=打印后不打开，1=自动打开
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

注意事项 #

• 确保Adobe Acrobat完整安装，打印机驱动状态正常
• 若仍弹出文件名对话框，检查打印机首选项是否开启「提示文件名」，需将该选项关闭
• 输出路径需保证程序有写入权限，避免因权限问题导致打印失败

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