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