Ir para conteúdo
Fórum Script Brasil
  • 0

Imprimir Memo


nightmare

Pergunta

4 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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??????

Link para o comentário
Compartilhar em outros sites

  • 0

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

biggrin.gif

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...