delphi - プリンタ設定ダイアログ プリンタの起動

Question

Embarcadero Delphi XE2 でアプリケーションを作成しています。

次のように、PrinterSetupDialog を使用してプリンター名を TEdit に選択しています。

if PrinterSetupDialog1.Execute() then begin

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

end;

私が抱えている問題は、この PrinterSetupDialog を実行すると、開始時に常に同じプリンターが選択されることです。別の OK に切り替えることができ、TEdit は OK でいっぱいになります。

---

私がやりたいことは次のとおりです。

PrinterSetupダイアログを実行する前に

ダイアログで選択したプリンターを TEdit のプリンターに設定します。たとえば、次のようにします。

PrinterSetupDialog.PrinterSelectedAtExecute := txtPrinterName.Text;

助けていただければ幸いです。ありがとう。

Answer 1

関数を使用して、プリンター設定ダイアログの初期選択プリンターを設定できPrinterます。

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