D2009 und PrinterSetupDialog

[BlueStarHH]

Komisch, bei mir mit Delphi 2009 und XP klappt das QC-Beispiel aus Beitrag #9 ohne Probleme. Der Drucker wird gewechselt.

Delphi-Quellcode:

Printer.PrinterIndex := 0;
PageSetupDialog1.Execute;
Printer.PrinterIndex := 1;
PageSetupDialog1.Execute;