Netzwerkdrucker druckt nicht

[Hansa]

Ich habe hier folgenden Code :

Delphi-Quellcode:

var d : Text;

PROCEDURE DruckLn (st : string);
  BEGIN
    writeln (d,st);
  END;

procedure TForm1.FormShow(Sender: TObject);
begin
showmessage ('ÄÄÄÄ');
  assignfile (d,'LPT1:');
  rewrite (d);
  druckln ('kjljljll');
  closefile (d);
end;

Der Drucker, der an der Workstation dran ist druckt von da aus. Von einem anderen Rechner, bei dem der Netzwerkdrucker als Standarddrucker eingerichtet ist, wird nicht gedruckt.