im Netzwerk Drucker auswählen ?

[kiar]

hallo blinder

Zitat:

siehst du denn den netzwerkdrucker?

nicht visuell sondern in deiner Message

also folgendes funktioniert bei mir problemlos:

Delphi-Quellcode:

var
    DruckerName:String;
    f:TextFile;
begin
    if PrintDialog1.Execute then
    begin
       DruckerName := Printer.Printers [Printer.PrinterIndex];
       showmessage ('*'+DruckerName+'*');
       AssignFile (f, 'DruckerName');
       rewrite(f);
       showmessage ('aktiver Drucker ab jetzt : '+Printer.Printers [Printer.PrinterIndex]);
       StatusBar1.SimpleText := 'Drucker : '+ DruckerName;
    end;
end;

raik