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

Question

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

我使用 PrinterSetupDialog 将打印机名称选择到 TEdit 中，如下所示:

if PrinterSetupDialog1.Execute() then begin

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

end;

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

<小时/>

我想做的是:

执行 PrinterSetupdialog 之前

将对话框选择的打印机设置为 TEdit 中的打印机:

PrinterSetupDialog.PrinterSelectedAtExecute := txtPrinterName.Text;

感谢帮助。谢谢。

Answer 1

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

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