Nur mal so als Test, versuch mal Folgendes:
Delphi-Quellcode:
var
tmpDevice, tmpDriver, tmpPort: array[0...1024] of Char;
tmpDeviceMode: THandle;
...
Printer.PrinterIndex := 2;
Printer.GetPrinter(tmpDevice, tmpDriver, tmpPort, tmpDeviceMode);
Printer.SetPrinter(tmpDevice, tmpDriver, tmpPort, tmpDeviceMode);
...
Die
Unit Printers.pas hat leider schon seit Jahren so ihre Tücken...
Uwe