Mega Code Archive

 

Categories / Delphi / Printing

 

Print text

Title: print text? var F: TextFile; begin AssignFile(F, 'LPT1');// LPT2,COM1,COM2... Rewrite(F); Writeln(F, 'Hello'); Writeln(F, 'There!'); Writeln(F, #12); CloseFile(F); end;