Hi,
ich muß verschiedene Drucker ansteuern. Deshalb gibt es einen PrintDialog. Nun habe ich hier einen Nadeldrucker Epson LQ-870. Der hängt am Server.
Delphi-Quellcode:
if dlgDrucker.Execute then begin
DruckerName := Printer.Printers [Printer.PrinterIndex];
showmessage ('*'+Druckername+'*');
AssignFile (d,DruckerName);
rewrite (d);
showmessage ('aktiver Drucker ab jetzt : '+Printer.Printers [Printer.PrinterIndex]);
StatusBar.SimpleText := 'Drucker : '+DruckerName;
end;
Leider druckt der nichts. Im PrintDialog ist er allerdings aufgeführt. Wo liegt der Fehler ? Ich habe den Freigabenamen im Verdacht. 8)