1:
2:
3:
4:
5:
6:
7:
8:

var
  MyFile: TextFile;
begin
  AssignPrn(MyFile);
  Rewrite(MyFile);
  Writeln(MyFile, 'Dieser Text wird gedruckt.');
  System.CloseFile(MyFile);
end;					

1:
2:
3:

printer.printerindex:=x;
//-1 = standard, sonst nr. des installierten
richedit1.print('');					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var f:textfile;
var s:string;
begin
AssignFile(f,'com1:'); //wie ein DOS Gerät ansprechen
Rewrite(f);
WriteLn(f,'Hello World');
s:=chr(29)#'V0'; //steuerseqenz zum Schneiden hier Epson TMT
WriteLn(f,s);
CloseFile(f);					

1:
2:
3:
4:
5:
6:
7:
8:

//die Datei "Etikett.prn" wird vom Programm zuvor erzeugt, hier sind wirklich alle Steuerzeichen ohne Windowseingriff notwendig / möglich
...
AssignFile(f,'c:\Etikett.bat');
Rewrite(f);
i:=ET_DruckerIndex;
writeln(f,'@echo off');
writeln(f,'echo Drucke Etiketten nach LPT'+inttostr(i));
WriteLn(f,'copy c:\Etikett.prn lpt'+inttostr(i)+':');					

1:
2:
3:
4:
5:
6:

Printer.BeginDoc;
SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC);
printer.Canvas.Font.Size:=19;
printer.Canvas.Font.Name:='FontA12';
Printer.Canvas.TextOut(10, 0, datetostr(date)+' '+timetostr(now));
Printer.endDoc;