[ medixsa @ 03.05.2008. 22:42 ] @
Pozdrav

Delphi 7

Kodom sam definisao izgled (sadrzaj POS racuna) i kompletan sadrzaj prebacim u Memo komponentu i sve je ok
i sa kodom vrsim stampanje sve iz Memo ovako ... moj kod ,


uses printers
var
Stampac: TextFile;
I: Integer;
begin
if MessageDlg ('Štampati račun?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
begin
AssignPrn (Stampac);
Rewrite (Stampac);
Printer.Canvas.Font := Memo1.Font;
for I := 0 to Memo1.Lines.Count-1 do
Writeln (Stampac, Memo1.Lines.Strings);
CloseFile (Stampac);
end;
frmIznos.Close;
frmProdaja.ESifra.SetFocus;

Pitanje ?

Kako da zaustavim stamapanje ,odnosno bolje recno kako da uradim kodom da izvrsi "kraj stampe" da mi stampa samo sadrzaj a ne prazne linije poslije sadrzaja u memo, nekih 20 cm itd...


Hvala svima na odgovoru !!!