im Netzwerk Drucker auswählen ?

[runger]

Hallo,

bei mir funktioniert das so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var druckername:string;d:textfile;
begin
if dlgDrucker.Execute then begin
    DruckerName := Printer.Printers [Printer.PrinterIndex];
    showmessage ('*'+Druckername+'*');
    AssignFile (d,DruckerName);
    rewrite (d);
    writeln(d,'Test');
    closefile(d);
    showmessage ('aktiver Drucker ab jetzt : '+Printer.Printers [Printer.PrinterIndex]);
    StatusBar.SimpleText := 'Drucker : '+DruckerName;
  end;
end;

Rainer