printersetupdialog启动打印机

Question

我正在使用Embarcadero Delphi XE2进行申请。

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

if PrinterSetupDialog1.Execute() then begin

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

end;

我遇到的问题是执行此PrinterSetupDialog时，始终在启动时选择相同的打印机。我可以切换到另一个ok，TEdit就可以了。

---

我想做的是：

执行PrinterSetupdialog之前

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

PrinterSetupDialog.PrinterSelectedAtExecute := txtPrinterName.Text;

帮助表示感谢。感谢。

Answer 1

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

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