prekid stampanja iz memo komponente
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 !!!
 |  |
 |
