delphi - 打印机设置对话框启动打印机

Question

我正在 Embarcadero Delphi XE2 中制作应用程序。

我正在使用 PrinterSetupDialog 将打印机名称选择到 TEdit 中，例如：

if PrinterSetupDialog1.Execute() then begin

txtPrinterName.Text := Printer.Printers[Printer.PrinterIndex];
ConfigINI.modified := true;

end;

我遇到的问题是，执行此 PrinterSetupDialog 时，总是在启动时选择同一台打印机。我可以切换到另一个好的，TEdit 被填满了。

---

我想做的是：

在执行 PrinterSetup 对话框之前

将对话框的选定打印机设置为 TEdit 中的打印机，例如：

PrinterSetupDialog.PrinterSelectedAtExecute := txtPrinterName.Text;

帮助表示赞赏。谢谢。

Answer 1

Printer您可以使用该功能设置打印机设置对话框的初始选择打印机。

uses
  Printers;
 ...
 ...
 begin
   Printer.PrinterIndex:=Printer.Printers.IndexOf(txtPrinterName.Text);
   PrinterSetupDialog1.Execute;
 end;