08 - Štampanje crteža i teksta

Načini štampanja u Delphi-ju:

  • Rave Reports, QuickReport...
  • Upotreba izlazne tekstualne datoteke
    • Pridruživanje tekstualne datoteke štampaču korišćenjem naredbe AssignPrn
    • Otvaranje datoteke
    • Korišćenje naredbi write i writeln za ispis teksta
  • Upotreba naredbe TextOut
    • Ispis teksta na željenim koordinatama kanvasa na štampaču

Upotreba izlazne tekstualne datoteke

procedure TForm1.Stampa(Sender: TObject);
var
   PrintBuf: TextFile;
   i: integer;
begin
   assignprn(PrintBuf);
   rewrite(PrintBuf);
   for i := 0 to Memo1.Lines.Count-1 do
     writeln(PrintBuf, Memo1.Lines[i]);
   closefile(PrintBuf) ;
end;
uses printers;
  • Tekst se ispisuje redom - sleva na desno i odozgo na dole
  • Nemoguća je promena poravnanja
  • Teško je formatiranje teksta

Komponenta PrintDialog

  • PrintDialog1.Execute
  • Svojstva collate, copies, frompage/topage, minpage/maxpage, printrange, printtofile, options...

Komponenta PrinterSetupDialog

  • PrinterSetupDialog1.Execute;
procedure TForm1.NovaStampa(Sender: TObject);
var
   PrintBuf: TextFile;
   i: integer;
begin
   if PrintDialog1.Execute then begin
      assignprn(PrintBuf);
      rewrite(PrintBuf);
      for i := 0 to Memo1.Lines.Count-1 do
        writeln(PrintBuf, Memo1.Lines[i]);
      closefile(PrintBuf);
   end;
end;
Vi ste ovde: Home Predavanja Četvrta godina Informatički smer - Praktikum II 08 - Štampanje crteža i teksta