Imprimir Memo

[nightmare]

Como faço para que quando eu clicar em um botão imprima o conteudo do memo1??

[Kikonanet]

Olá,

Declare no Uses Printers

procedure ImprimeMemo(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 chamar

ImprimeMemo(Memo1.Lines);

Abs.

Kiko

[nightmare]

procedure ImprimeMemo(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;

Onde eu coloco isso??????

[Eder]

amigo....veja a Unit que testei em cima do que nosso amigo KikonaNet postou.

Funcionou direitinho.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, printers;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure ImprimeMemo(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;

procedure TForm1.Button1Click(Sender: TObject);
begin
ImprimeMemo(Memo1.Lines);
end;

end.

Se por acaso ainda não entendeu post aqui.....pra gente te ajudar.

Espero ter simplificado

[nightmare]

Valeu, agora eu entendi