Buscar por:

Imprimir conteúdo de um memo (Simples e Fácil)

Código

Type

Procedure Memo_Print(Conteudo:TStrings);

//-----------------------------------------------------------

Procedure TForm1.Memo_Print(Conteudo:TStrings);

Var

   MemoFile : TextFile;

   P : Integer;

Begin

   AssignPrn(MemoFile);

   Rewrite(MemoFile);

   For P := 0 to Conteudo.Count - 1 do

   Writeln(MemoFile,Conteudo.Strings[P]);

   CloseFile(MemoFile);

end;

//---Para ativar a impressão siga como o exemplo:---

procedure TForm1.Button1Click(Sender: TObject);

begin

  Memo_Print(Memo1.Lines);

end;