Ide o to, čo chceš tlačiť. Ak neformátovaný text, písaný jedným fontom, tak takto:
Na formulár daj 2 buttony - "Otvoriť súbor" a "Načítať súbor", TOpenDialog, TMemo. Do uses pridaj jednotku
Printers.
Kliknutie na prvý button:
Kód:
begin
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
Kliknutie na druhý button:
Kód:
var
SuborPreTlac: TextFile;
i: integer;
begin
AssignPrn(SuborPreTlac);
Rewrite(SuborPreTlac);
for i:= 0 to (Memo1.Lines.Count - 1) do
writeln(SuborPreTlac, Memo1.Lines[i]);
CloseFile(SuborPreTlac);
end;
Ak chceš tlačiť formátovaný text, daj ho do RichEdit a potom:
Kód:
if PrintDialog1.Execute then
RichEdit1.Print('subor.txt');
Ak chceš tlačiť celý formulár, tak takto:
Kód:
Form1.Print
Iné príklady:
http://www.daniweb.com/code/snippet114.html#
http://www.inspired.sk/delphi/posielanie-surovych-dat-do-tlaciarne/
