Drucken in freepascal

[hermelin]

Hallo;
Ich versuche in freepascal zu drucken. Es klappt aber nicht.(
Ich bin blutiger Anfänger.
System: Debian 8.2 Linux
Kernel:Linux saturn 3.16.0-4-amd64 #1 SMP Debian
Drucken geht über cups Fehlt da im code noch was.?

Code: Alles auswählen

 
PROGRAM Drucken;
uses Crt, Printer;
VAR Text: String;
Drucker:Boolean; 
BEGIN
  ClrScr;
   HighVideo;
  WriteLn ('Welcher Text soll ausgedruckt werden? (Drucker muss eingeschaltet sein.)');
  Readln(Text);
  Initprinter('HP_LaserJet_p2035');
  drucker := IsLstAvailable;   (Drucker ist true)
  writeln (drucker);
  NormVideo;
  WriteLn (Lst,'Text wird jetzt gedruckt... ',#13);
  WriteLn (Lst, Text,#13);
  Close(Lst);
  ReadKey;
END.
 

Tschau
Hermann

[Mathias]

Versuche mal dies hier: http://www.freepascal.org/docs-html/rtl ... gnlst.html

[hermelin]

Versuche mal dies hier: http://www.freepascal.org/docs-html/rtl ... gnlst.html

Hallo

Danke, das war es.

Tschau
Hermann