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.