delphi - delphi中打印到 "Microsoft print to PDF"时如何设置文件名

Question

我试图在打印为 PDF 时设置文件名。设置 (Printers.pas) Printer.Title 适用于大多数 PDF 打印引擎(Adobe、CutePDF)的默认 PDF 文件名，但它不适用于“Microsoft 打印到 PDF”或“Microsoft XPS 文档编写器”

在调用 Printer.BeginDoc 时调用的打印对话框中设置文件名的正确方法是什么？如果设置 Printer.Title 是正确的方法，那么是否有“Windows 打印到 PDF”的解决方法？

使用 Delphi XE。

谢谢!

Answer 1

你可以试试。

var
  DeviceMode: THandle;
  Device, Driver, Port: array[0..80] of Char;
begin
  Printer.PrinterIndex := Printer.Printers.IndexOf('Microsoft Print to PDF');
  Printer.GetPrinter(Device, Driver, Port, DeviceMode);
  Printer.SetPrinter(Device, Driver, 'C:\Temp\Test.pdf', 0);

  Printer.BeginDoc;
  Printer.Canvas.TextOut(100, 100, 'Test');
  Printer.EndDoc;
end;