Tisk – Delphi – Fórum – Programujte.com

Jak se dá vytisknout obsah komponenty Memo?

Pokud je mi známo, tak komponenta TMemo nemá žádnou metodu Print jako je tomu u RichEditu, takže je nutné si to obsloužit sám.

Zde máš univerzální proceduru pro tisk z komponenty MEMO....do USES si ještě přihoď Printers

procedure PrintMemo(memo: TMemo, printdialog: TPrintDialog);

var PrintFile: TextFile;

     i: integer;

begin

  if printdialog.Execute then begin

    AssingPrn(printfile);  //priradi soubor k tiskarne

    Rewrite(printfile); //resetuje vystup



   for i:=0 to memo.Lines.Count-1 do

     WriteLn(printfile, memo.Lines[i]);



   CloseFile(printfile);

end;

To ProgDan:

A co když nechce příjít o formátování?

Pokud vím tak výstup z MEMa je neformátovaný....stejne jako kdyz z MEMA ukladas do souboru, taky prijdes o formátování...

No, základní formátování ovšem TMemo _zobrazit_ umí,takže když chce někdo tisknout z Mema, tak bych přepokládal, že se chce zachovat i formátování. Takže já narhuju si to prostě nakreslit na DC tiskárny. Ale to ví stejně TuroLog nejlépe sám.

To TuroLog: Být tebou, radši bych použil komponentu RichEdit. Není v ničem horší než Memo a když chceš tisknout stačí napsat:

NazevTvehoRichEditu.Print;

Dobrý den, mám problém s tiskem z komponenty IMAGE... potřebuju vytisknout obrázek a nevím jak to udělat, poradíte mi ? děkuji.

Neví někdo jak vytisknout obsah stringgridu?